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Préface 


Cet ouvrage a pour objectif de permettre à l’utilisateur la traduction 
d'œuvres musicales sur ordinateur de type Amstrad 464, 664 ou 6128. 
Partant de la génération de sons, en passant par le synthétiseur musical 
programmable (PSG), le lecteur est amené à utiliser et développer les 
instructions BASIC consacrées aux sons. 


Chacun trouvera dans ce livre une série de mélodies originales 
spécialement adaptées à l’ Amstrad, ainsi que quelques thèmes populaires. 
La progression envisagée à travers les œuvres utilisées permettra au lecteur 
de découvrir, du plus simple au plus complexe, diverses caractéristiques de 
l'écriture musicale, ainsi que des techniques de programmation. 


La diversité esthétique du répertoire musical qui a présidé à l’élaboration 
du présent ouvrage répondra probablement aux goûts artistiques les plus 
divers, tout en donnant à la machine la dimension de ses nombreuses 
possibilités dans une optique créative et enrichissante pour l'utilisateur. 


Indépendamment du plaisir de faire interpréter une œuvre musicale à 
l’image de l’instrumentiste jouant une partition quelconque, le traducteur 
aura en plus celui de recréer l’œuvre, tout en cherchant éventuellement 
l'accompagnement de son choix, selon son état d’âme, face à la version 
originale de base. 


L'ouvrage se termine par une série de programmes facilitant certains 
apprentissages : reconnaissance des notes, du rythme, à la fois sous forme 
de jeu et de dictée. Il vous sera possible de transformer votre ordinateur en 
orgue, et de mesurer... votre acuité auditive ! 


Les instructions 
BASIC 


INTRODUCTION 


Votre ordinateur dispose d’un générateur sonore programmable (en 
anglais : Programmable Sound Generator — en abréviation : PSG) dont le 
nom de code est AY-3-8912 et le constructeur General Instrument. On le 
rencontre dans bon nombre d’applications où le son représente un élément 
important de fonctionnement tels que les synthétiseurs musicaux, les 
alarmes, les signalisateurs sonores, .… 


Pour l’utiliser aussi efficacement que possible, nous allons aborder 
l’étude du son en essayant de mettre en œuvre chaque élément présenté. 
Nous pouvons déclencher le PSG en nous adressant à lui soit par les 
instructions prévues dans le BASIC, soit en attribuant aux registres des 
valeurs acceptables par l’intermédiaire d’un petit programme en langage 
machine. 


APPROCHE THÉORIQUE DU SON 


Aspect général 


Le son est un phénomène vibratoire engendré par une variation rapide de 
la pression de l’air, provoquant chez chacun d’entre nous une sensation au 
niveau de nos récepteurs auditifs. 


Une manipulation très simple permet de comprendre ce qu’est un son et 
de mettre en évidence les critères qui le caractérisent. 
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Prenez une fine lame de scie à métaux et serrez une de ses extrémités 
dans un étau. Ecartez l’autre extrémité de sa position de repos et lâchez-la. 
La lame se met à vibrer un certain nombre de fois et, si nous prenons la 
seconde comme unité de mesure du temps, vous pourrez observer plus ou 
moins cinq oscillations complètes. Le rapport oscillations sur unité de 
temps porte le nom de fréquence. Nous pourrons représenter ce qui se 
passe par un graphique. 





A 
Amplitude 
_ = 
P \ t 
\ 
\ 


Cycle 





Les deux variations observables possibles sont le temps et l’écart existant 
(la distance) entre la position de l’extrémité par rapport à sa position de 
repos (0). Le terme d'amplitude est utilisé pour exprimer cette distance. Au 
début, elle est maximale (nous tirons sur la lame). Dès qu’elle est lâchée, 
elle s’empresse de revenir à sa position d’équilibre pour repartir dans le 
sens opposé jusqu’au moment où, n’ayant plus assez d’énergie, elle revient 
à sa position de repos et repart vers la position que nous lui avons assignée 
au départ. 


La représentation graphique de ce mouvement ressemble très fort à celle 
obtenue par le tracé d’une fonction mathématique : sin (sinus). Ce type 
d’onde s’est vue caractérisée par l’adjectif sinusoïdale. 


Hauteur d’un son 


Avec une fréquence de 5 battements par seconde — ou 5 cycles par 
seconde (un cycle étant un alleï-retour complet), aucun son ne nous est 
audible. Si vous raccourcissez progressivement la longueur de la partie 
vibrante de la lame, vous constaterez deux phénomènes qui se dérouleront 
en parallèle. La fréquence augmentant, un son devient audible et plus la 
fréquence vibratoire s’élèvera, plus le son deviendra aigu, jusqu’au moment 
où la fréquence sera tellement élevée qu’à nouveau le son ne sera plus 
audible. Cette variation dans les sons émis porte le nom de hauteur du son. 
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Cette grandeur est fonction de la fréquence : fréquence élevée — son 
aigu, fréquence basse — son grave. D’autre part, le son n’est pas audible 
en-dessous d’une certaine fréquence (on parlera d’infrasons), ni au-dessus 
d’une valeur. Un sujet jeune entend des sons se situant entre 16 et 
20 000 cycles par seconde. Avec l’âge, cet intervalle se rétrécit principale- 
ment du côté des fréquences élevées et semble se stabiliser vers 10 000 Hz 
(Hz est l’abréviation de Hertz — unité internationale de mesure de la 
fréquence correspondant à un son de 1 cycle en 1 seconde). 


La fréquence d’un son peut encore être exprimée sous une autre forme 
en utilisant non plus la seconde comme unité de mesure mais la durée d’une 
oscillation complète. On parlera alors de la période de l’onde. 


Période 





Avec une relation liant la fréquence et la période : 


la période s'exprimant en secondes. 


Si la fréquence est de 5 cycles par seconde (ou 5 Hz), la période 
correspondante est de 1/5 c/s = 0,2 seconde. 


En BASIC Amstrad, la hauteur d’un son est définie par la période du 
son, mais cette dernière valeur est déterminée en tenant compte des 
caractéristiques (fréquence horloge interne) du système. 


Le manuel livré avec la machine précise la manière de déterminer cette 
valeur : 


62 500 


Période = —— 
fréquence 
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Pour générer le son, l’instruction SOUND sera utilisée. Celle-ci comporte 
de nombreux paramètres dont deux seront utilisés : 


SOUND 2, b 


a désigne le canal d’émission du son. Vous disposez de trois canaux A, B, 
C, accessibles pour des valeurs de a respectivement de : 

a = 1: sortie par le canal A 

b = 2: sortie par le canal B 

c = 4: sortie par le canal C 


b correspond à la période du son. 


Exemple 


Vous désirez obtenir un son de 100 Hz sur le canal À, l'instruction sera : 


SOUND 1, 62 500/100 


Vous êtes cependant limité dans l’émission des sons, car b ne peut 
prendre comme valeur que des nombres entiers compris entre 1 et 4095 
(nous verrons l’explication de ces valeurs dans le chapitre 2). 


Il nous est facile de déterminer les limites des sons générés par le PSG : 
Fréquence minimale = 62 500/1 = 62 500 Hertz. 
Fréquence maximale = 62 500/4095 = 15,2625 Hertz. 


Si nous utilisons des valeurs non comprises dans cet intervalle, le message 
d’erreur «Improper argument» s’affichera à l’écran. 


Vous pouvez essayer de déterminer les fréquences que vous « entendez » 
et vérifier si vous possédez encore une oreille « jeune ». Pour vous y aider, 
vous trouverez un programme au chapitre 4. 


Si vous utilisez des valeurs non entières, l’ordinateur ne tiendra compte 
que de la partie entière et la considérera comme étant la valeur de la 
période. C’est ainsi que le programme suivant n’émettra que deux sons sur 
les dix attendus. 


FOR I=1 TO 19 
P=Sé6+1/19S 


PRINT P 
SOUND 1,F 
NEXT I 
END 
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Le PSG ne pourra donc émettre que 4095 sons de fréquences différentes, 
ce qui n’est déjà pas si mal. 


Echelle de hauteur des sons 


Etablir une échelle de hauteur des sons est a priori un problème délicat. 
La hauteur est une sensation et, bien que caractérisée par des valeurs 
physiques, elle ne prend un sens que par l’effet qu’elle produit sur chacun 
d’entre nous. C’est plus la différence entre deux sons émis successivement 
que leur fréquence qui fait que nous «l’entendons». Lorsque un son 
présente une fréquence double d’un autre, on dira qu’ils sont séparés par 
une octave. Nous n’éprouvons pas la sensation que la hauteur double à 
chaque octave, mais bien que le son s’élève d’un même degré dans l’échelle 
des hauteurs. Autrement dit, la fréquence des sons varie selon une 
progression géométrique alors que la sensation de variation de la hauteur 
du son varie elle, selon une progression arithmétique. C’est la définition 
même du logarithme. L’expression suivante caractérise ce fait : 

H = 1 _ 
= O ——— 
* F2 
où F2 est une fréquence de référence, F1 la fréquence émise et le rapport 
F1/F2 s’appelle l'intervalle musical. 


C’est au début du xr siècle que Guy d’Arezzo aurait conçu ce que nous 
désignons par le mot gamme et ce, en recherchant à la fois un système de 
notation (à l’origine de la portée) et un système de codification des 
intervalles musicaux. C’est à lui que nous devons le nom des notes que nous 
connaissons aujourd’hui et qui sont utilisées dans les pays latins. Les pays 
anglo-saxons ont conservé la notation des notes de la gamme par des lettres 
et la correspondance s’établit comme suit : 


(en Allemagne) 





Le «ut» est aussi appelé «do». Le «ut» est réservé aux présentations 
théoriques alors que le «do» est utilisé dans l’apprentissage du solfège et 
lors des interprétations. 


Gamme de Pythagore 


ES 


Chacun sait que Pythagore est à l’origine d’un courant de pensée 
mathématique et il s’est entre autres intéressé au rapport de consonance des 
sons. Choisissons une corde qui peut émettre un son. Considérons la 
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hauteur du son émis comme référence et 1 comme étant la longueur de la 
corde. En prenant des rapports simples de cette longueur, c’est-à-dire en 
divisant successivement par 2 ou par 3, on engendre une série de sons. 
Diviser par 2 n’est pas intéressant, car comme nous l'avons dit 
précédemment, il engendre la même note mais à des octaves différentes. Ce 
rapport permettra donc de changer d’octave. 


Le rapport 3 permet d’obtenir toutes les notes de la gamme sur des 
octaves différentes mais si nous convertissons les valeurs trouvées sur une 
même octave, c’est-à-dire entre les longueurs de cordes 1 et 21, nous 
obtiendrons des longueurs de cordes de : 


9/8 81/64 4/3 3/2 27/16  243/128 2 


si la sol fa mi 





En exprimant cette relation non en terme de rapport de longueur de 
corde mais en fonction de rapport de fréquences : 


9/8 81/64 4/3 3/2 27/16  243/128 2 


2 


ré mi fa si ut 





Si on mesure les intervalles séparant deux notes voisines, on constate 
qu’il n’y en a que deux : le ton (rapport 9/8) et le demi-ton (rapport 
256/243). 


Gamme des physiciens (gamme de Zarlino) 


Une autre échelle devait tenir compte de la superposition de trois accords 
parfaits majeurs : fa — la — do, do — mi — sol, sol — si — ré. Le rapport 
des fréquences est : 


9/8 5/4 4/3 3/2 5/3 15/8 


ré mi fa sol la si 





Cette fois, les intervalles sont au nombre de trois : 


— un demi-ton entre mi — fa et si — do; 
— un ton (9/8) entre do — ré; 
— un ton (10/9) entre ré — mi. 


La différence entre ces deux tons porte le nom du comma et, bien que 
très petite, elle est perceptible à l’oreille. Le comma est approximativement 
égal à un neuvième de ton, ce qui fait que lors des transpositions, les notes 
altérées sont placées à une distance différente de celles qui les précèdent et 
de celles qui les suivent. 
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Gamme tempérée 


Dès la fin du xvir siècle, Werckmeister parvint à trouver un compromis 
et établissait une gamme utilisée sous le nom de gamme tempérée qui a été 
utilisée par tous les musiciens occidentaux depuis Bach. 


Les douze notes qui divisent l’octave le font en douze parties égales ou 
douze demi-tons tempérés. L’inconvénient est de donner des intervalles 
qui, à l’exclusion de l’octave, sont tous « faux » par rapport aux résonances 
naturelles. Mais l'immense avantage est de permettre toutes les transposi- 
tions et d’utiliser des instruments présentant douze touches de clavier par 
octave comme par exemple le piano. 


On remarquera que pour obtenir une division de l’octave en douze 
parties égales, il suffit d’avoir un nombre tel que sa multiplication par 
lui-même, autant de fois qu’il y a de parties dans l’octave, soit égale à 2. Ce 
nombre représente l'intervalle de base et est égal à : 


12 
V 2, soit 1,059 


En ce qui nous concerne, pour engendrer un son correspondant à une 
note donnée, il nous manque une fréquence de référence. Celle-ci a été 
fixée par un arrêté ministériel de 1859. La note est le «la3 » c’est-à-dire le 
«la» du milieu du piano et dont l’octave porte le numéro 3. Sa fréquence a 
été fixée à 435 Hz. Comme souvent, le « vécu » a entraîné une modification 
et actuellement, le «la » sur lequel s’accordent les orchestres possède une 
fréquence de 440 Hz. 


Il nous est ainsi possible d’établir pour les diverses octaves la valeur des 
fréquences. Par convention, nous numéroterons 0 l’octave 3, 1 l’octave 4, 2 
l’octave 5, —1 l’octave 2, —2 l’octave 1 et —1 l’octave 0 : 


Fréquence = 440 + (2 - (octave + (N — 10)/12))) 
Période = ROUND (62.500/Fréquence) 


Le tableau ci-dessous exprime les valeurs trouvées ainsi que les rapports 
existants entre les différentes fréquences et celle du do. 


Note Fréq. Période Err. Rapport 
DO 261.626 239 0.04562 1.000 
DO# 277.183 225 0.21425 1.059 
RE 293.665 213 0.08095 1.122 
RE# 311.127 201 0.05844 1.189 
MI 329.628 190 0.20678 1.260 
MI# 349.228 179 0.01897 1.335 
FA 369.994 169 0.04649 1.414 


SOL 391.995 159 0.27636 1.498 
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Note Fréq. Période Err. Rapport 
SOL# 415.305 150 0.32687 1.587 
LA 440.000 142 0.03200 1.682 
LA# 466.164 134 0.05449 1.782 
SI 493.883 127 0.35709 1.888 
DO 523.251 119 0.37298 2.000 


Le tableau ci-après met en évidence les différences de rapport entre les 
gammes. 


Gamme Gamme 
des physiciens de Pythagore 

do 1.000 
1.059 

TÉ 1.122 1.125 1.125 
1.189 

mi 1.260 1.250 1.2656 

fa 15335 1.333 1.3333 
1.444 

sol 1.498 1.500 1.500 
1.587 

la 1.682 1.6666 1.6875 
1.782 

si 1.888 1.875 1.8984 
2.000 


Voici le programme qui établit les valeurs fondamentales de ce tableau : 


199 à Mn nouer se matos one où vdiens ou mn me one ue meme que ee eue ete met mes em 
119 ? PROGRAMME 2 

Lise? TABLE DES FREGUENCES 
179 me me me me me me me me me me me me me me me me me on ne me sue nue 


125 DIM N#(12) 

139 FOR I1=@Q TO 11 

149 READ N#(I) 

159 NEXT I 

169 DATA SI,D0,DO#,RE,RE#R,MI,MIH,FA,SOL,SOLR#R,LA,LA 
# 

178 CLS 

189 PRINT "NOTE FRES. PERIODE ERR. RAPPFORT 
185 PRINT lan2sss=s2=22n=Sss2SLsRESSSSSSS=SSE=ZSSSESSS 


199 FOR I=i TO 13 
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299 FREG=446X(2"((1-1@)/12)) 

219 PER9=62599/FREG 

229 PER1=ROUND (PERS) 

239 ER=ABS ( (PERG-PER1) /PERG) k199 
24@ RAP=FREG/261.625565 

245 PRINT NS(I MOD 12); 

254 PRINT TAB (6) ;USING "#Hh#.hR#H"3; FREG;3 
269 PRINT USING " ###h"; PER1; 

279 PRINT USING " H.HHHRH'S ER; 
289 PRINT USING " H.###h#";RAP 

296 NEXT I 

389 LOCATE 1,29 

51@ END 


Intensité du son 


Présentation 
Il s’agit là d’une deuxième caractéristique décrivant un son. 


Si vous frappez plus ou moins fort sur la touche d’un piano, le son émis 
sera entendu plus ou moins fort. Au niveau de votre Amstrad, c’est un 
troisième coefficient qui fixe le volume sonore (l'intensité) du son émis. 


SOUND 2, b, c, d 


d correspond à l’intensité du son émis et varie de 0 à 15. 
Nous verrons lors de l’interprétation musicale que c’est suffisant 
pour interpréter une œuvre en en respectant les nuances ; 


c correspond à la durée du son émis, durée exprimée en centièmes de 
seconde (0,01 sec.). 


Le petit programme ci-après illustre ce propos. 


199 ? “nero med 
1198 ” PROGRAMME 3 

1279 D un ane me tn 0e en ce Gé eme 70e les se me me eilen ee = ne me ee se «= 
139 FOR V=1 TO 15 

149 SOUND 1,239,198,V 

159 NEXT V 

169 END 


Il génère quinze fois le Do3, chaque fois pendant une durée d’une 
seconde, et ce, pour chaque valeur du volume. 
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Enveloppe volume 


Répétons deux fois de suite la même note (le même son). 


199 D nn mmse me 06 en me ne en en nee mé me ne de mi ce sem me de me om one sui 2 
119 ? PROGRAMME 4 

129 D nn me ou ation mn out ton one mue ton om omiten me me mn sue ds ve de out dis ve mnt 
139 SOUND 1,239,59,12 

149 SOUND 1,239,59,12 

159 END 


Lors de l’exécution du programme, il ne vous semblera entendre qu’un 
seul son ; les deux mêmes notes successives ne se détachent pas l’une de 
l’autre. 


Ds jp pu ps 
OUI OM VOUÈUIE 


ee 4 68 168 t. 


A la mise en route du programme, le son (do) est émis avec un volume de 
12, et ce, pendant 1 seconde, lui succède le même son pendant 1 seconde. 
Le passage du premier au second son n’est pas perceptible à l’oreille. Bien 
détacher deux mêmes sons successifs demande donc de diminuer le volume 
du premier son avant de générer le second. Un graphique du type suivant 
devrait représenter le phénomène : 


bas pu p 
DRUBINIOLOeEURUNE 


ee 68 166 t. 


Le son commence au volume 12 mais après 0,8 seconde, celui-ci tombe à 
O0 pour recommencer par la suite. 
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Le graphique ci-dessus visualise l’enveloppe du son, c’est-à-dire la 


variation en intensité du son émis. Vous disposez d’une instruction qui va 
vous permettre de définir seize «enveloppes volumes» différentes : 


ENV n°, al,bl,c1,a2,b2,c2,...,a5,b5,c5 


n° fixe le numéro de l’enveloppe. Un nombre de 0 à 15 est permis, ce 
qui correspond à seize enveloppes ; 

al indique le nombre de pas durant lequel la variation de volume va 
s’exécuter (de O à 127); 

b1 précise le pas de variation du volume à chaque pas. Le volume est 
soit : 


— croissant et la valeur sera positive ; 
— décroissant et la valeur sera négative (précédée du signe —); 
— ne varie pas et la valeur 0 sera alors attribuée. 


b1 peut prendre des valeurs variant de — 128 à 127. 


cl attribue à chaque pas une durée exprimée en centièmes de seconde. 
La durée d’un pas peut varier de 0 à 255. 


Il est possible de décomposer la variation de volume d’un son (enveloppe 
volume) en cinq parties, chacune étant décrite par les trois paramètres. 


Revenons à notre exemple : 


1j 


OhouobnodosEOmNubne 


26 





Volume du son : 


— pour zone Ï : nombre de pas : 80 
variation du volume : 0 
durée d’un pas : 1 
— pour zone II : nombre de pas : 1 
variation du volume : 12 
durée : 1 
— pour zone III : nombre de pas : 19 
variation du volume : 0 
durée : 1 


L’instruction décrivant l’enveloppe (n° 1) est donc : 
10 ENV 1, 80, 0, 1, 1,12, 1, 19,0, 1 
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Si vous écrivez cette ligne dans le programme précédent, lors de 
l’exécution, vous n’entendrez aucune modification. Il vous faut adapter 
l'instruction SOUND : 


SOUND 2, b, ©,@,@© 





Un nouveau paramètre apparaît : 
e qui indique le numéro de l’enveloppe son qui doit être utilisé ; 


c peut prendre la valeur 0 indiquant par là que la durée sera 
déterminée par l’enveloppe volume (elle lui sera égale). Si vous lui 
attribuez une autre valeur, c’est cette dernière qui détermine la 
durée du son émis; 


d prendra, dans le cas de notre exemple, la valeur 12 car il s’agit de la 
valeur de départ que nous avons assignée au phénomène. 


a et b resteront inchangés. 


Le petit programme sera donc : 


199 ? Sn + A ne De ES el ei ni de Dh ie Mur me É6 CN Er me 
119 ? PROGRAMME 5 

129 ? --- 
139 ENV 1,89,9,1,1,-12,1,19,9,1 
149 SOUND 1,239,@,12,1 

159 SOUND 1,239,9,12,1 

168 END 


Cette fois, les sons sont bien détachés. 


Le concept d’enveloppe volume joue un rôle important dans la création 
des sons. Grâce à celle-ci, on peut essayer de faire émettre un son se 
rapprochant autant que possible de la manière dont il serait émis par un 
instrument l’interprétant (sans son timbre malheureusement). 


La façon dont l'intensité du son se modifie dans le temps peut être 
programmée selon trois grandes composantes : 


— l’attaque qui correspond à l’émission du son. Celle-ci variera en 
fonction du type d’instrument choisi ; 


— l’amortissement du son ou son entretien ; 


— le relâchement du son ou sa retombée qui marque la fin de 
celui-ci lorsque la source d’émission est interrompue : on ne 
souffle plus dans l’instrument dans le cas d’un instrument à vent 
ou la touche est relâchée dans le cas d’un piano. 
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1 tj up 


COUTTAPET,TERCTTTS STE TANT 





166 t. 


(1) Attaque — (2) Soutien Amortissement — (3) Relâchement du son 


Quelques exemples 


Le piano : instrument à cordes frappées ; c’est par le choc d’un marteau 
feutré actionné par une touche et par l’intermédiaire de pièces mécaniques 
que le son est créé. Quand il frappe sur la corde, le marteau est entièrement 
libre. La seule variable qui intervient au niveau de cet instrument est la 
vitesse avec laquelle le marteau frappe la corde, déterminant par là 
l'intensité du choc et, ainsi, du son. 


L'attaque n’est donc pas immédiate et le son étant émis, il décroît selon 
un amortissement constant. L’expression suivante pourrait convenir à une 
enveloppe volume de ce type : 


— Attaque partie 1: 6, 2, 1! 

partie 2: 14, 0, 1! 
— Soutien : 2, —1, 30 
— Relâchement partie 1: 2, —35, 1 


partie 2: 18, 0, 1 





È 


j 
: 
4 
ÿ 
ê 
î 
e 
Ë 





NS 


Le violon : instrument à cordes frottées, possède une toute autre 
enveloppe volumee du son. 


La montée en intensité est très lente, en effet, au début, elle est nulle et 
c’est par un frottement de plus en plus fort de l’archet que la corde 
s’éloignant de sa position d’équilibre peut vibrer. A la différence du piano, 
le son est entretenu durant toute la durée du jeu. 
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f 
h 
à 








— Attaque partie 1: 6, 25 0 
partie 2: 2, 0, 1 
— Soutien : 60, 0, 1 
— Relâchement partie 1: 3, —4, 1 
partie 2: 17, 0; 


Le xylophone : instrument du type percussion, représente une troisième 


illustration intéressante. Le son est très rapidement à son intensité 
maximale mais chute ensuite très vite. 


1 
Î 
1 
1 
1 


8 
5 
2 
ô 
8 





— Attaque partie 1: 1, ‘12, 1 
partie 2: 19, OO, 1 
— Soutien partie 1: 12, O0, 1 
partie 2: 48, O0, 1 
— Relâchement : 20, 0, 1 


s 


Nous pourrions continuer à évoquer et à caractériser d’autres instru- 
ments mais de nouvelles variétés de sons peuvent être engendrées au départ 
d’une enveloppe. 
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La sirène : l’intensité peut varier de diverses manières. En voici deux 
exemples : 


mare 


[A 
oëngn SrhubTON0 LS EVURBUIE 


VOLUME INITIAL ? @ 





Programmes 


Voici deux programmes qui vont vous permettre de découvrir et de 
générer des enveloppes sons. 


O A partir du tracé graphique 
Utilisation 


A la mise en route du programme, l’écran se présente de la manière 
suivante : 





RECHERCHE 
I + UALIDATION 
VOL. . SE 
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Un petit point (il se trouve en 0,0) peut se déplacer dans le cadre 
graphique à l’aide des touches de direction. C’est ce qu’indique le cadre 
référence en bas à gauche. Ce point se déplacera horizontalement par unité 
de temps (0,01 seconde) et ne pourra pas dépasser la limite 100. 
Verticalement, la variation correspondra à une unité d’intensité de volume, 
avec 15 comme maximum accessible. 


Pour signaler qu’un point de l’écran correspond à ce que vous attendez, il 
vous suffit d'appuyer sur la barre d’espacement (validation). 


Le premier point sera toujours positionné pour une valeur t = 0, si vous 
l’oubliez ce n’est rien, le programme est prévu pour tenir compte de cette 
erreur. Vous constaterez que le tracé reliant deux points successifs adopte 
la forme d’un «escalier » et que le dernier point obtenu ne correspond pas 
nécessairement au point que vous avez validé. Il existe des contraintes liées 
aux variations temps et volume. Ces variables ne sont pas continues (on 
passe de 4 à 5 mais 4.5 n’existe pas), le programme doit rechercher le tracé 
qui se rapproche le plus de l’attente de l’utilisateur et pour cela modifier 
soit le volume, soit la durée, peut-être même les deux. 


Vous constaterez que les trois paramètres décrivant le tracé apparaissent 
dans le coin inférieur droit et ce n’est que lorsque cinq séries de paramètres 
sont affichées que le son correspondant au tracé est généré. 


Pour vous aider dans la localisation des points dans le graphique, les 
valeurs volume et temps sont affichées dans le coin supérieur droit. 


epete le son 
FES graprne 
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Un nouveau menu apparaît lorsque le son a été entendu (en fait le son — 
la3 — décrit par l’enveloppe affichée a été répété 5 fois). Vous pouvez soit 
réentendre l’effet de l’enveloppe volume sur le son en appuyant sur la 
touche R (répète) soit vider l’écran et décrire une nouvelle enveloppe — 
vous appuyez sur N (nouveau) soit encore, vous quittez le programme en 
tapant sur F (fin). 


Analyse du programme 


Fixer la couleur du fond et de l’encre 170-180 


Fixer l’origine du graphisme et le point 240 
origine de la zone graphique 
(X0,Y0) 


Tracer l’axe horizontal (avec la flèche) 250 


" 


Dessiner le cadre information «validation » 650 
Afficher les commentaires 660 
Dessiner la barre d’espacement 670-690 


Fixer les variables de départ du curseur graphique 

X,Y position écran du curseur 730 
X0,Y0 position initiale du curseur 740 
K nombre de points validés 


Répéter 


Retenir la position du curseur graphique (X2,Y2) 760 
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S À 770 
Où Non 


Incrémenter| Si{l 780 
Oui Non 










valeur de 







































valeur de 800 
valeur de 810 
valeur de Aller en 
X VALIDATION 
Aller en Aller en Aller en Aller en Incrémenter 
Procédure | Procédure Procédure Procédure le nombre 
TEST TEST TEST TEST de points 
validés 
Positionner le curseur au nouveau point 
— effacer le point affiché, 820-830 


— déplacer l’origine 
— dessiner le curseur 


Déterminer les valeurs V et T 840-850 






Afficher les valeurs V et T correspondant à la position du curseur | 860-870 
graphique 
Jusqu'à ce que 6 points soient validés 880 
Affichage du menu de fin de tracé 1010-1030 





(<R>épète, <N>ouveau, <F>in) 


Définir l'enveloppe volume 1040 


Répéter 


Emettre le son (répéter 5 fois le son décrit) 1050-1070 
Lire le clavier R$ 1080 


1100 
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Relancer le 
programme 


Jusqu’à ce que la réponse soit «F» 1110-1120 


Afficher le message de fin 1110 
«Au revoir » 


1110 


Procédure TEST 890 


Fixer les valeurs X et Y aux limites de déplacement acceptées 
51<= X <= 550 
121 = Y <= 360 


Fin de procédure 970 


Procédure VALIDATION 1150 
RP 


Calculer les variables 
V : volume (à partir de la position curseur) 
V(K) valeur du volume pour le point K 1170 
T : durée (à partir de la position curseur) 
T(K) valeur de T pour le point K 


Ce n’est pas le premier point ? 
(K<>0) 


Calculer la variation Fixer les variables pour le 
de volume avec le point d’origine 
point précédent DV X0 = 50 

YO = Y 


Calculer la variation 
de durée avec le 
point précédent DT 


Calculer les valeurs 

des paramètres A, B, C 1210-1330 
composant l’enveloppe 

son 


Fixer A(K), B(K), C(K) 
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Dessiner le trajet 
calculé de la variation 1370-1430 
du volume 


Fixer les valeurs de 
X, Y, X0, YO 


Afficher au bas de l’écran, 1440-1450 
à droite, les paramètres 


Fin de procédure 1460 


Liste des variables 





Y0,Y0 origine des axes graphiques ou du curseur graphique. 

X,Y position actuelle du curseur graphique. 

X2,Y2 position précédente du curseur graphique. 

V valeur du volume calculée à partir de la position verticale du 
curseur graphique. 

T valeur de la durée calculée à partir de la position horizontale 
du curseur graphique. 

K nombre de points validés (numéro de point). 

V(K) valeur du volume pour le point K validé. 

T(K) valeur de la durée pour le point K validé. 

DV variation de volume entre deux points successifs validés. 

DT variation de durée entre deux points successifs validés. 


A — A(K) nombre de pas. 
B — B(K) pas du volume paramètres de l'instruction ENV. 
C—C(K) durée d’un pas. 


R$ lettre ou signe correspondant à la touche frappée lors de la 
lecture du clavier. 

L$ format associé à l'instruction PRINT USING. 

I variable utilisée dans les compteurs de boucles. 


Remarque : Si vous possédez un autre modèle que le CPC 6128, n’écrivez 
pas les lignes suivantes, votre machine ne «comprendrait pas l’instruction 
FILL » : 

— 540 — 570 — 600 — 650 — 690 — . 


Les signes correspondant aux touches de commande ne seront plus 
«NOITCIS ». 
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199 D mue on mm mme mcm out een © mme me me me mme ee mm me me me sms = 
119 ” PROGRAMME 6 

129 ? TRACE DE L'ENVELOPPE VOLUME ET 
139 ? ECOUTE DU SON ENGENDRE. 

149 ? = = 


179 INK 9,26 
189 INK 1,9 
199 MODE 2 


299 ? 

219 ’ REFERENTIEL GRAPHIQUE 
229 ? 
239 CLG 


249 X9=59 : Y9=129 : ORIGIN 9,9 

259 MOVE  X9,Y9 :DRAWR 569,9 : DRAWR -5,5:DRAWR 5 
,-S:DRAWR -5,-5 

269 MOVE  X9,Y9 :DRAUR 8,266 : DRAWR -5,-3:DRAWR 
5,3:DRAWR 5,-3 

279 FOR i=1 TO 59 


259 X=X9+19 XI+1 

299 MOVE X3 YO 

3566 DRAWR @,-3 

310 IF I MOD 19 =Q THEN DRAWR @,-5 
329 MEXT I 

339 FOR I=1 TO 15 

34 Y=Y@+16XI1+1 

359 MOVE X9,Y 

369 DRAWR -5,9 


379 NEXT 1 

389 LOCATE 5,2:PRINT"U"; 

399 LOCATE 3,19 

409 PRINT" 29 49 

68 89 199 t.” 

419 y=3 

429 FOR I1=15 TO 9 STEP-1 

439 LOCATE 4,Y 

449 PRINT USING "##";1 

459 Y=Y+1 

469 NEXT 

479 MOVE 39,85 
489 DRAWR 229,9 : DRAWR @,- 89 : DRAWR -229,9 : DR 


AWR 9, 89 
499 LOCATE 7,21:PRINT "RECHERCHE" 
599 LOCATE 13,23 :PRINT "VOL. FREOQ. " 


519 REM FLECHE 1 

529 MOVE 78,44 

539 DRAWR @,1S:DRAWR -5,9:DRAWR 7,7:DRAUR 7,-7:DRA 
WR -5,G:DRAWR G,-19:DRAWR -4,9 

549 MOVER 2,2:FILL 1 

554 MOVE 78,49 

569 DRAWR 9,-19:DRAWR -5,@:DRAWR 7,-7:DRAWR 7,7:DR 
AR -5,@:DRAWR 6,19:DRAWR -4,9 

579 MOVER 2,-2:FILL 1 

589 MOVE 175,57 
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599 DRAWR 7,7:DRAUWR 9,-5:DRAWR 19,@:DRAWR @,-4:DRA 
WR -19,9:DRAWR @,-5S:DRAWR -7, 7 

699 MOVER 2,9:FILL 1 

619 MOVE 219,55 

629 DRAWR 9,4:DRAWR 19,9:DRAWR @,5:DRAWR 7,-7:DRAW 
R -7,-7:DRAUR 8,5:DRAWR -19,9 

639 MOVER 2,2:FILL 1 

649 MOVE 399,85 

659 DRAWR 229,9 : DRAWR G,- 89 : DRAWR -229,@ : DR 
AUR 9, 89 

669 LOCATE 46,22: PRINT"VALIDATION" 

679 MOVE 389,49 

688 DRAWR 59,9 : DRAWR 9,-19 : DRAWR - 59,9 : DRA 
WR 9,19 

699 MOVER 2,-2:FILL 1 

799 ? 

719 * DEPLACEMENT CURSEUR 

72@ ? -------- 

739 X=59 ! Y=129 

749 XG=X : YG=Y : K=9 

759 RS=INKEYS:IF R$="" THEN GOTO 759 


769 X2=X : Y2=Y 

779 IF ASC(RS)=249 THEN Y=Y+16 : GOSUB 899 : G 
OTO 829 

789 IF ASC(RH)=241 THEN Y=Y-16 : GOSUB 899 : G 
OTO 829 

799 IF ASC(RF)=243 THEN X=X+5 : GOSUB 899 : G 
OTO 829 

809 IF ASC(RS)=242 THEN X=X-5 : GOSUB 899 : G 
OTO 829 

819 IF ASC(RS)=32 THEN GOSUB 1149:K=K+1: IF K= 
6 THEN GOTO 989 

829 MOVE X2+1 ,Y2+1:DRAWR 2,9,9:DRAWR 9,2,@:D 
RAWR -2,9,9: DRAWR O,-2,9 

839 MOVE X+1,Y +1:DRAWR 2,9,1:DRAWR 9,2, 1:DRAW 
R -2,9,1: DRAWR O,-2,1 

849 V=INT((Y-136)/16 +1): 

859 T=INT((X-58) /5) 

869 LOCATE 69,2:PRINT " VOLUME :"V 

879 LOCATE 69,3:PRINT " T. + 

889 GOTO 759 

899 7 ZeSSSSSSESSSSSS=SSE=S==SSSSSSSS=====—= 

999 ’ Procedure TEST 

Q1Q ? ===================SSSSSESSSSSESZ=Z== 


929 IF X<=5S1 THEN X=5S1 
939 IF X>=559 THEN X=559 
949 1F Y<=121 THEN Y=121 
959 IF Y>=369 THEN Y=369 
969 IF X<X9 THEN X=X@ 
979 RETURN 

989 

999 ?’ SON 

1998 ? ---- 
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1919 LOCATE 44,22:PRINT"<R> repete le son” 

1929 LOCATE 44,23:PRINT"<N> nouveau graphe” 

1939 LOCATE 44,24:PRINT"<F2> fin né 

1949 ENV 1,A(1),B(1),C(1),A(2),B(2),C(2),A(3),B(S) 
5C(3),4(4),B(4),C(4),A(5),B(S),C(S) 

1959 FOR I=i TO S 

1969 SOUND 1,300,9,9,1 

1979 NEXT I 

1989 RF=INKEYS: IF R$="" THEN GOTO 1989 

1999 IF R#5="R" OR RS="r" THEN GOTO 1959 

1199 IF RS="N" OR R#="n" THEN RUN 

1118 IF RS="F" OR RS="#" THEN CLS:MODE G:PRINT "AU 
REVOIR. ":END 

1129 GOTO 1989 


1139 END 

1149 ? ==========2====================== 
1159 ’ Procedure VALIDATION 

1169 ? ============ssS========SSE===S=S== 


1179 V=INT((Y-136)/16 +1): V(KI=V I T=INT((X-59) /S) 
:T(K)=TIIF K<>9 THEN DV=V(K)-V(K-1):DT=T(K)-T(K-1) 
ELSE X9=59:Y@O=Y:xX=X9:Y=Y@:GOTO 1469 


1189 REM 

1199 ? PFarametres 

D 

1219 IF DV=9 THEN A=DT:B=@:C=1: GOTO 1319 
1229 FOR I=ABS(DV) TO: STEP ri 


1239 IF (DV MOD I) =9 AND(DT MOD 1) =9 THEN A=1: 
B=DV/1:C=DT/1:GOT0 1259 

1249 NEXT 

1259 IF C<=9 THEN A=1:B=DV:C=1: GOTO 1319 

1269 IF A<>1 THEN GOTO 13519 

1279 IF DV MOD DT =9 THEN GOTO 1519 

1289 IF X=9 THEN DT=DT-1 : GOTO 1229 

1299 IF DV MOD 2=9 THEN DT=DT-1 ELSE IF DV>9 THEN 
DV=DV-1 ELSE DV=DV+1 

1399 GOTO 1229 

1319 A(KI=A : B(K)=B : C(K)=C 

1329 T(K)=T(K-1)+AXC 

1339 V(KI=V(K-1) +AXB 

1349 ? 

1359 ? TRACE VARIATION 

ST a 

1379 MOVE X@,Y9 

1389 FOR I1=1 TO À 


1379 DRAWR 9,B*16 
1409 DRAWR CXS ,9 
1419 NEXT 


142S X=XPOS : Y=YPOS 

1439 XO=X : Y@=Y 

1449 LŒ="- #h#”" 

1459 LOCATE 68,19+K!:PRINT TAB(68) A; TAB(72)B; TAB(76 
)C 

1469 RETURN 
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O A partir de l’expression de l’enveloppe. 


Utilisation 


A la mise en route du programme, l’écran se présente de la manière 
suivante : 


Î 


i 
à 
E 
À 


VOLUME INITIAL ? 18 





L'ordinateur vous demande la valeur initiale du volume. Vous 
introduisez une valeur de 0 à 15 et appuyez sur RETURN. Au bas de 
l'écran à gauche apparaissent une série de 0 et un point d’interrogation. 


VOLUME INITIAL ? 18 





A vous d'introduire les valeurs des paramètres définissant l'enveloppe du 
son. Vous pouvez lorsque vous en avez introduit au moins 3, n’appuyez que 
sur la touche RETURN. Quand le dernier point d'interrogation est atteint, 
le graphique correspondant aux paramètres introduits se dessine sur l’écran 
et le son se fait entendre. Vous remarquerez que le temps total affiché ainsi 
que l'échelle, ont été adaptés à la valeur des paramètres que vous venez 
d'introduire. 


VOLUME INITIAL ? 5 


SAÈ noucesu Sraphe 
<F> fin 
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Un menu vous propose les trois choix possibles : R(épète), N(ouveau), 
F(in). 


Analyse du programme 


Fixer la couleur du fond, de l’encre et le type d’écran 


Fixer l’origine du graphisme et le point d’origine de la zone graphique 


150 








260 


Tracer l’axe horizontal 
l’axe vertical 
afficher les graduations horizontales et verticales 
afficher les commentaires 


Aller en procédure LECTURE ECRAN 


Aller en procédure TRACE VARIATION 


210-420 







430 
430 


Afficher cadre menu final et le contenu 470 


<R>épète <N>ouveau <F>in 


Définir l’enveloppe volume à partir des paramètres introduits 


Répéter 


Générer le son (répéter 5 X le son) 


Lire le clavier R$ 





510 







520-540 
550 


Si Réponse est «N » 570 








Relancer 
le programme 





Jusqu'à ce que la réponse soit «F» 580 


Vider l’écran 
Afficher le message de fin «Au revoir » 


Fin 
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Procédure LECTURE ECRAN 


Demander «Volume initial: » (VO) 
(message en 45 horizontal et 25 vertical) 


Afficher 5 lignes de 3 colonnes de «0» 


Fixer positions de départ du curseur X =0: Y =1 





830 





840-880 





890 











Répéter 


Afficher un point d'interrogation (?) 
Attendre frappe touche du clavier R$ 


S'il ne s’agit pas de RETURN ? _ 


Compléter la chaîne Attribuer à AA (X,Y) la valeur écrite 
réponse RE$ Aller en procédure VALIDATION 


Si pas de pA 


Afficher | Mettre 
la valeur | réponse 
mémorisée | à vide 






910 








920 


930 











Afficher à la 940 
position écran 


la réponse actuelle 










Effacer ce qui 
a été écrit 






950 











Jusqu’à la 15° position 






Aller en procédure 
TRANSFORMATION EN PARAMETRES SON 


Fin de procédure 
Procédure VALIDATION PARAMETRES 1000 


Tests relatifs aux valeurs admissibles par les paramètres 
0< A > 127 1030 
—128 < B >127 
O< C > 255 
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Attribuer au drapeau Attribuer au drapeau 
Er (erreur) la valeur 0 Er (erreur) la valeur 1 


Fin de procédure 1070 





Procédure TRANSFORMATION en PARAMETRES SON 1080 

Répéter 5 fois 1110 

Fixer les valeurs A() et B() à partir des variables 1120 
AA(0,J) et AA(1,J) 

Si AA (2,5) = 0 1130 


(aucune valeur n’est attribuée 
dans la troisième colonne) 


. la valeur C() Attribuer à C() la valeur 
de AA(2,J) 


Calculer le temps total de production du son 1140 


Calculer l’échelle graphique horizontale 1170 
Fin de procédure 

















Procédure TRACE VARIATION 610 
Fixer les paramètres de départ 640 

X = X0 

Y = YO + VO x 16 

V = VO 
Positionner le curseur graphique en position de départ 640 
Répéter 5 fois (pour chaque ensemble de paramètres) 660 
Fixer le paramètre volume B à une valeur de 0 à 15 670 
680 


Nombre de pas nuls? (A = 0) 
Oui 
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Répéter un nombre de fois égal au nombre de pas 


Calculer volume (V) 









Remettre V dans 
les limites (0 — 15) 












Tracer segment de 
la position curseur, 
à la nouvelle 
position Volume 


Remettre V |Tracer seg. 
dans les limites| variation de 
Volume 









Tracer seg. 
variation de 
Volume 


Tracer le segment variation de durée 


Attribuer à X la valeur de la position horizontale 
du curseur 







740 


750 


760 


770 






780 


Afficher sous le dernier repère de l’axe horizontal du graphique la valeur T 
Fin de procédure 


Liste des variables 


790 


X0, YO origine des axes graphiques. 


X, Y position actuelle du curseur graphique. 
position dans le tableau des paramètres. 

vo valeur initiale du volume. 

V valeur du volume à représenter graphiquement. 

V2 valeur intermédiaire de variation de volume (variable de 
calcul). 

T temps total correspondant au son décrit par l’enveloppe 
volume. 

ECH valeur de l’échelle de variation de la durée (une graduation 


sur l’axe horizontal). 


RE$ 


AA(X,Y) 


A() 


B() 
co) 
B 


ER 


R$ 


IL, J 
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chaîne correspondant aux chiffres et signes introduits lors de 
l'introduction des paramètres. 

valeur du paramètre introduit (X désigne la colonne et Y la 
ligne). 

nombre de pas. 

pas du volume paramètres de l'instruction ENV. 


durée d’un pas déterminé à partir des AA(X,Y). 


valeur du paramètre B(I) ramené si nécessaire à une valeur de 
0 à 15. 


drapeau de constat d’erreur dans l’écriture de la valeur des 
paramètres : 

= 1 si une erreur a été commise. 

= 0 si aucune erreur n’a été commise. 


lettre, chiffre, signe correspondant à la touche appuyée lors 
de la lecture du clavier. 


variables utilisées dans les compteurs de boucles. 


199 REM --------- 
119 REM PROGRAMME 7 

129 REM GRAPHIQUE ENVELOPPE VOLUME À PARTIR 
139 REM DE VALEURS PARAMETRES. 

149 REM ----—-- 0 
159 INK 9,26: INK 1,9: MODE 2 

169 REM 


179 REM Referentiel graphique 
SO RE mm 


179 CLG 

299 XG=59 : Y@=129 : ORIGIN 9, 

219 MOVE  X9,YS :DRAWR 569,9 : DRAWR -5,5:DRAWR 5 
,-S:DRAWR -5,-5 

229 MOVE  X@,Y9 :DRAWR 9,266 : DRAWR -5,-3:DRAWR 
5,3:DRAWR 5,-3 

23G FOR I=1 TO 199 


249 
259 
269 
279 


X=X9+ 5 XI+1 
MOVE _ X,Y9 

DRAUR 9,-3 

IF I MOD 19 =9 THEN DRAWR 6, -5 


289 NEXT I 
299 FOR I=1 TO 15 


39 
319 
329 


Y=YG+16X1+1 
MOVE  X9,Y 
DRAWR -5,9 
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339 NEXT I 

3549 LOCATE 5,2:PRINT"'V"; 

359 LOCATE 3,19 

369 PRINT TAB (75) "t" 

374 Y=3 

359 FOR 1=15 TO 9 STEP-1 

39 LOCATE 4,Y 

469 PRINT USING "H#"3l 

419 Y=Y+1 

429 NEXT 

439 GOSUB 899 : GOSUB 619 

459 REM SON 

469 REM ere 

479 MOVE 315 , 79:DRAWR 229,9 : DRAWR @,-69 : DRAW 
R -229,@ : DRAWR 9,69 

489 LOCATE 44,22:PRINT"<R> repete le son” 

499 LOCATE 44,23:PRINT"<N> nouveau graphe" 

599 LOCATE 44,24: PRINT'"'<F> fin 5 

519 ENV 1,A(1),B(1),C(1),A(2),B(2),C(2),A(3),B(3), 
C(3),A(4),B(4),C(4),A(5),B(5),C(5) 

S29 FOR 1=1 TO 5 

539 SOUND 1,399,9,V6,1 

549 NEXT I 

559 RFS=INKEYS:IF R$="" THEN GOTO 559 

569 IF RF="R" OR R#="r" THEN GOTO 529 

579 IF RS="N" OR R#="n" THEN RUN 

58 IF R#="F" OR R$="f" THEN CLS:PRINT "AU REVOIR. 
"END 

59@ GOTO 559 

699 END 

619 REM =============2================== 

629 REM Procedure TRACE VARIATION 

639 REM =============2===========2=SS=2=== 

649 X=XD:Y=YD+VOXIGS: MOVE X9, YG+VOX16 

659 V=V9 

668 FOR I=1 TO 5 

679 B=B(1) MOD 16 

639 IF A(I1)=@ THEN GOTO 776 

699 FOR I1I=1 TO A(I) 

759 V=V+B 

719 IF V<9 THEN V=15+V:DRAW X, (VX16) +Y9: GOT 
0 749 

729 IF V>15 THEN VZ=V-B:V=V-15:D=VZ-V: DRAWR 
@,-Dx16:GOTO 749 

739 DRAWR 9,B +16 

749 DRAWR C(I)XECH,9 

7359 X=XPOS 

769 NEXT II 

779 NEXT I 

789 LOCATE 68,19:PRINT T; 


798 


RETURN 
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SO REM =======2======================= 

845 REM Procedure 

819 REM LECTURE ECRAN POUR VALEURS 

S29 REM =z======z==zz=========ES========== 

839 LOCATE 45,29: INPUT "VOLUME INITIAL "3 Vg 
849 FOR I=1i TO S 


859 FOR J=9 TO 2 
869 LOCATE S1JX7,19+I : PRINT" @ " 3 
874 NEXT J 


824 MNEXT I 

899 #=Q : Y=i1 

989 LOCATE StXX7,19#+Y: PRINT "?"3 

919 RS=INKEYS:IF R#S="" THEN 919 

729 IF ASC(RF)<>13 THEN GOTO 989 

956 AA(X,; Y)=VAL(RES): GOSUB 1990 : IF ER=1 THEN RE 
F=STRINGH(LEN(RESH)," "):LOCATE S+XK7,19+Y: PRINT RE 
+" ";:RES="":GOTO 799 

949 IF RES="" THEN LOCATE S+XX7,19+Y:PRINT AA(X, Y) 
s:GOTO 769 

959 RES="" 

969 X=XH+1:IF X>2 THEN X=9 : Y=Y+1 : IF Y=é THEN GO 
SUB 1989:RETURN 

979 GOTO 929 

989 RES=RES+RS: LOCATE S+XX7,19#+Y: PRINT RESt+" "3 


999 GOTO 919 

1099 REM ======================S=====22==== 

1919 REM Procedure VALIDATION PARAMETRES 

1929 REM =============2=================== 

1956 IF X=9 THEN IF AA(X,Y)I<9 OR AA(X,Y)2127 THEN 
ER=1:RETURN 

1949 IF X=1 THEN IF AA(X,Y)<-128 OR AA(X,Y)2127 TH 
EN ER=1:RETURN 

1959 IF X=2 THEN IF AA(X,Y)I<9 OR AA(X,Y)2>25S THEN 
ER=1:RETURN 

1969 ER=Q 

197G RETURN 

1959 REM =====2==z=z==========SS============== 

1985 REM Procedure 

1999 REM TRANSFORMATION EN PARAMETRES SON 


1199 REM ===z=======z======================== 

1119 FOR J=1 TO S 

1129 A(J)=AA(G,I):B(J)=AA(1,J) 

1139 IF AA(2,J)=9 THEN C(J)=1 ELSE C{(J)=AA(2,J 
} 

1149 T=T+A(J)KC(J) 


1159 NEXT J 
1169 ECH=S599/T 
1179 RETURN 
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Timbre 


C’est là, la troisième caractéristique d’un son. Il permet de distinguer 
deux sons émis par des instruments différents alors qu’ils sont égaux en 
hauteur (fréquence) et en intensité. Cette différence est liée au mouvement 
vibratoire à l’origine du son. Un son émis par un instrument n’est jamais 
pur; il est composé d’une multitude de sons simples, dénommés 
harmoniques, qui se superposent au son initial. 


Il n’est malheureusement pas possible de modifier le timbre du son émis 
par votre ordinateur. 


Enveloppe ton 


Présentation 


Au lieu de modifier le volume, nous pourrions envisager de faire varier 
les fréquences, c’est-à-dire la hauteur des sons. L’instruction est d’une 
structure identique à celle utilisée pour l’enveloppe volume. 


ENT n°, al, bl, cl, .…, a5, bS, c5 


n° précise le numéro de l’enveloppe ton et peut prendre les valeurs de 
1-2 19% 

al, indiquent les variations imposées au ton, cinq séries de paramètres 

b1, peuvent être utilisées. 


PERIODE INITIALE :? 142 


Fi} 


L] 1 





I augmentation de la période durant 30/100° de seconde par 10 pas de 
1 (10,1,3) ; 
Il diminution de 20 unités durant 0,3 sec. : 10 pas en diminution de 2, 


chaque pas durant 3 sec. (10,-2,3); 


III retour au ton initial en 0,3 sec. : 10 pas en augmentation de 3, 
chaque pas durant une seconde (10,1,3). 
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Ce qui se traduit par l’expression : 
ENT 1, 10:41; 1,10, =, 1, 10,1, 1 
RE 


1 2 3 


Pour entendre ce son, l’instruction SOUND doit comporter un nouveau 
paramètre : 


SOUND a, b, c, d,e, f 


| 


numéro de l’enveloppe de ton. 


Si nous désirons entendre ce que le «la» fondamental devient, et ce, 
pendant 5 secondes, le programme sera : 


130 , do De Les GNU 0 Mer ui on die eds mie, ik es àùe ce D me en. ei om 
119 PROGRAMME 8 

129 » de D a Éd 0e ee ei ie ne ouh ÉD vai M de 2e bee de Gh vel de de fesses ee ere en 7. en 
139 ENT 1,19,/4,1,10,-2,1,19,5;1 

149 SOUND 1,142,599,15, ,1 

15@ END 


La variation demandée s’exécute pendant 0,3 seconde, le ton est ensuite 
conservé dans sa forme première. Si vous désirez que la variation se 
perpétue durant toute la durée de l’émission du son, il vous suffit de mettre 
le signe «—» devant le numéro d’enveloppe dans l'instruction ENT. 


Essayez : 
10 ENT. + 1, 10; 4;°1 10,25 410, 


Nous sommes revenus à notre ton initial mais nous aurions aussi bien pu 
laisser l'enveloppe agir sur la fréquence du ton, par exemple : 


PERIODE INITIALE :? 142 
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Vous constaterez, lors de la mise en route du programme, que la hauteur 
du ton diminue de manière constante. 


PERIODE INITIALE :? 142 





L'instruction correspondant au graphique ci-dessus est : 


IDENT = LS: 2 504,5, #2.290,L 3; 521 
1 2 3 4 5 


Des limites existent pour les paramètres de l'instruction ENT : 
ENT n°, al, bi, ci, .…, a5, bS, cS 
n° attribue un numéro à l’enveloppe ton définie. Ce numéro est un 


nombre de Là-45. Un signe « — » sera mis devant l’instruction si la 
modification tonale est souhaitée continue. 


al nombre de pas dé la zone, varie de 0 à 239; 

b1 taille de chaque pas exprimé en variation de la période, varie de 
—:128 à. + 127; 

cl durée de chaque pas exprimée en centièmes de seconde, varie de 0 
à 255. 


Chaque valeur doit obligatoirement être un nombre entier. 


Autres possibilités d'écriture 
Si vous avez lu avec attention le manuel livré avec votre machine, vous 
avez constaté qu’il existe un second moyen d'utiliser cette instruction : 
ENT n°, di, el, ::,45..es 


NS 


où : 

di est la valeur de la période du son (de 0 à 4095). Elle est toujours 
précédée du signe «=»; 

cl est la durée de génération de ce ton (de 0 à 255). 


L'instruction SOUND est légèrement modifiée car l’enveloppe ton 
précise les tons successifs à interpréter (5 au maximum) et l'instruction 
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SOUND déclenche le son en indiquant le canal qui le produit, son intensité, 
la durée et bien entendu le fait qu’il faut tenir compte de l’enveloppe tonale 


définie. 


Par exemple 





50 60 70 80 90 100 t 


Sol 159 


Fa 179 


Période | = 119 — 179 = 127 = 159 = 142 


199 
11 
129 
159 
149 
159 


20 20 20 20 20 


7 PROGRAMME 9 


ENT 2,=119,29,=179,29,=127,20,=159,20,=142,29 
SOUND 1,9,199,15,,2 
END 


Ce mode permet des sauts de hauteur de sons, sans la continuité 
progressive du mode précédent. La durée du son est déterminée par 
l'instruction SOUND, si la valeur est supérieure à celle prévue par ENT, le 
son se prolonge à une période identique à la dernière période précisée. 


Le signal propre aux ambulances s’obtient par : 


199 ? ee en ge A D dde en ie à con dé onien et Ne GE du de me 
119 PROGRAMME 19 

129 RÉ RS A E den ne de 0e d'en ‘ae sien 05 ep. te Det ce om GER ee en + de me, om 
139 ENT 2,=71,20,=89,29,=71,20,=0,9 
149 FOR I=1 TO 5 

159 SOUND 1,9,199,15,,2 

169 NEXT I 

176 END 
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La fin de l'instruction ENT (= 0,0) signale qu'aucun ton sera émis et que 
la durée globale du son sera déterminée par le troisième paramètre de 
l'instruction SOUND. 


Il est parfaitement possible d’utiliser les deux modes de programmation 
dans une même instruction : 


132 | 


142 7 — 


10 20 30 40 50 60 70 80 90 100 





+ 


152 





V\ 


199 , de. 0ù 506 es Di lus cs battent bé 60: var be de san DO: ed de ER LENS SN CU 5 à 
119 ? PROGRAMME 11 

129 LA ef. de ou en és em eme ne ser consent pèse ot css ne jan vu à: de dnlms en 0:52: “us 

139 ENT -1,=142,19,5,-1,2,=152,19,19,-1.1,19,0,1 
149 SOUND 1,8,299,15,,1 

159 END 


Le son sera répété quatre fois sans qu’une boucle apparaisse au niveau du 
programme. L’instruction SOUND déclenche un son d’une durée de 
200 centièmes de seconde (2 sec.), comme l'instruction ENT définit un son 
d’une durée de 50 centièmes de seconde, cela entraîne quatre fois la 
répétition du son décrit par l’enveloppe tonale. 


Programmes 


Voici deux programmes qui vont vous permettre de comprendre et de 
générer des enveloppes de variations de tons. 


LES INSTRUCTIONS BASIC | 47 
D A partir du tracé graphique 


Utilisation 


A la mise en route du programme, l’écran se présente de la manière 
suivante : 


PERIODE INITIALE ? 125 





Il vous est demandé d’introduire la valeur de la période initiale, pour cela 
référez-vous à l'annexe 3. Rappelez-vous cependant que le «1la3», 
référence pour l’accord des instruments de musique possède une période de 
142 Hz. La période étant précisée, positionnez le curseur graphique à l’aide 
des flèches de direction (ce que précise le cadre de référence en bas à 
gauche). Les flèches indiquant la gauche et la droite permettent le 
déplacement horizontal indiquant une variation du temps (lorsqu'un point a 
été validé, il n’est plus possible de revenir avant). Les flèches orientées vers 
le haut et le bas engendrent un déplacement vertical correspondant à une 
variation de la valeur de la période. L’espace graphique ne permet qu’une 
variation de + 35 à — 25. La position du curseur est exprimée en haut et à 
droite de l’écran par l’affichage des valeurs de la variation de la période et 
de la durée. 


Le premier point sera toujours positionné en t = 0, quelle que soit la 
valeur que vous lui avez attribuée graphiquement. Vous constaterez que le 
point final du tracé en escalier de la variation du ton ne correspond pas 
toujours au point que vous avez validé. En fait, le programme a calculé le 
tracé qui pourrait se rapprocher le plus de votre désir, mais les contraintes 
résultant de l’expression des valeurs, variation de période et variation de 
durée, sous forme de nombres entiers, ne permettent pas toujours de 
rejoindre votre souhait. 


Les trois paramètres décrivant le tracé apparaissent dans le coin inférieur 
droit et ce n’est que lorsque cinq séries de trois paramètres sont affichées 
que le son correspondant est émis. 
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PERIODE INITIALE ? 125 


PERIODE INITIALE ? 125 


te 1 
SR noncéeu Sraphe 
<F> fin 





Le son est émis pendant une durée de 5 secondes, l’enveloppe ton étant 
répétée tant que la durée ne s’est pas écoulée. 


Un nouveau menu est affiché, permettant soit de réentendre le son émis 
(R), soit de dessiner et d'écouter une nouvelle enveloppe (N), soit de 
quitter le programme (F). 


Analyse du programme 













Fixer l’origine du graphisme et le point origine (0,0) 220 
de la zone graphique (X0,Y0) 
Afficher les commentaires (P, t et les valeurs — 25,0,25) 380-420 
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Dessiner le cadre information «déplacement » 430-590 
Dessiner les 4 flèches 
Afficher les commentaires 
Dessiner le cadre information «validation » 600-650 
Afficher les commentaires 
Dessiner la barre d’espacement 
Demander la valeur de la période de départ (PO) 690 
Fixer les variables de départ du curseur graphique 700-710 
X,Y position du curseur graphique 
X0,Y0 position initiale du curseur 
K nombre de points validés 
Répéter 
Retenir la position du curseur graphique (X2,Y2) 
Incrémenter 
valeur de Y 760 








Décrémenter 
valeur de Y 







Décrémenter| Si = 
valeur de X| Oui Non 


Aller en 

Procédure 
VALIDA- 
TION 





Incrémenter 
valeur de X 


























Aller en 
Procédure 
TEST 


Aller en 
Procédure 
TEST 


Aller en 
Procédure 
TEST 


Aller en 
Procédure 
TEST 









Positionner le curseur en sa nouvelle position 790 
Effacer le curseur affiché 790 
Déplacer l’origine 800 


Dessiner le curseur — Calculer les paramètres P et T 810-820 
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Jusqu’à la validation de 6 points — Afficher ces paramètres 830-840 


Affichage du menu de fin de tracé 980-1000 


(<R>épète <N>ouveau <F>:in) 


Définir l'enveloppe ton 1010 


Répéter 


Emettre le son (durée ‘5 secondes) 1020 


Lire le clavier R$ 1030 





(attendre la frappe d’une touche) 


a 1050 


Tant que F n’est pas appuyé 1060 





Vider écran 1060 
Afficher le message de fin 


Fin 


Procédure VALIDATION 1100 


1120 





Calcul des variables 
P période (à partir de la position curseur) 
P(K) valeur de la période au point K 
T durée (à partir de la position curseur) 
T(K) valeur de T au point K 


K<>0? (autre que le point d’origine) 


Calculer la variation de période Fixer les variables 
avec le point précédent DP du point initial 


Calculer la variation de durée X0,Y0 
avec le point précédent DT X,Y 


Calculer les valeurs des paramètres 1160-1250 
A, B, C composant l’enveloppe ton 
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Fixer les valeurs A(K), B(K), C(K) 1260-1280 


Dessiner le trajet calculé de la 
variation de la période 1320-1360 


Fixer les nouvelles valeurs de X,Y, 1370 


X0,Y0O 


Afficher dans la zone écran réservée 
la valeur des paramètres A, B, C 1400 


Fin de la procédure 1410 


Procédure TEST 860 


Fixer les valeurs X et Y aux limites de déplacement acceptées 
51 <= X> = 550 
121 <= Y> = 360 


Fin de la procédure 940 





Liste des variables 


X0, YO 
X, Y 
K 


A—A(K) 
B—B(K) 
C—CK) 


P 


P(K) 


T(K) 
DP 
DT 
R$ 


L$ 
I, II 


origine des axes graphiques ou du curseur graphique. 
position actuelle du curseur graphique. 
nombre de points graphiques validés (numéro du point). 


nombre de pas 
pas du volume }? paramètres de l'instruction ENT. 
durée d’un pas. 


valeur de la variation de la période calculée à partir de la 
position verticale du curseur graphique. 
valeur de la variation de la période au point validé numéro K. 


valeur de la durée calculée à partir de la position horizontale 
du curseur graphique. 


valeur de la durée au point validé numéro K. 
variation de la période entre deux points validés successifs. 
variation de la durée entre deux points validés successifs. 


lettre ou signe correspondant à la touche appuyée lors de la 
lecture du clavier. 


format associé à l'instruction PRINT USING. 
variables utilisées dans les compteurs de boucles. 
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Remarque : Si vous possédez un autre modèle que le CPC 6128, n’écrivez 
pas les lignes indiquées ci-après, l’instruction «FILL» ne serait pas 
«comprise » : 


520 — 550 — 580 — 610 — 670 


Cela n’entraînera que l'affichage des flèches d’orientation et de la barre 
d’espacement sans que ces symboles soient noircis. 


199 ? ER SE 
119 ? PROGRAMME 12 

129 ? TRACE DE L’ENVELOPFFE TON ET 
13@ ? ECOUTE DU SON ENGENDRE. 

LA DR 


15@ INK G,26 
169 INK 1,9 
176 MODE 2 
159 FREM 


179 REM Referentiel graphique 
LOO-REMMAE REP TER r Pre eee ReS 


219 CLG 
228 XG=59 : Y9=269 : ORIGIN 9,9 

239 MOVE  XG,Y@ :DRAWR 569,9 : DRAWR -5,5:DRAWR 5 
,-S:DRAUR -5,-5 

249% Y@=129 

259 MOVE  X9,Y9 :DRAWR 9,266 

269 FOR I1=1 TO 199 


279 K=X@9+ 5 XIt+1 

25 MOVE *X, Z69 

279 DRAWR @,-3 

Ss96 IF 1 MOD 19 =9 THEN DRAWR 6, -5 


319 NEXT I 
324 FOR I=1 TO 69 


339 Y=Y9+ 4X1+1 
349 MOVE  X9,Y 
359 DRAWR -3,9 
369 IF I MOD 5 = @ THEN DRAUWR -5,9 


379 NEXT 1 
384 LOCATE 5,2:PRINT"P"; 

399 LOCATE 2,3:PRINT"-25" 

468 LOCATE 2,9:PRINT" @" 

419 LOCATE 2,16:PRINT" 25" 

424 LOCATE 68,19:PRINT"199 T" 

439 MOVE 39,85 

449 DRAWR 229,4 : DRAWR @,- 89 : DRAWR -229,9 : DR 
AWR 9, 89 

459 LOCATE 7,21:PRINT "RECHERCHE" 
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469 LOCATE 13,23 :PRINT "VOL. FREG. " 

479 REM FLECHE 1 

489 MOVE 78,44 

479 DEAWR @,19:DRAWR -5,9:DRAWR 7,7:DRAWR 7,-7:DRA 
WR -5,@:DRAWR 9,-19:DRAWR -4,9 

509 MOVER 2,2:FILL 1 

519 MOVE 78,49 

S29 DRAWR G,-19:DRAWR -5,9:DRAWR 7,-7:DRAWR 7,7:DR 
AWR -5,G:DRAWR 9,1G:DRAWR -4,9 

539 MOVER 2,-2:FILL 1 

549 MOVE 175,57 

559 DRAWR 7,7:DRAWR @,-5:DRAWR 19,9:DRAWR @,-4:DRA 
WR -1@,69:DRAWR 6,-5:DRAWR -7, 7 

569 MOVER 2,9:FILL 1 

579 MOVE 219,55 

529 DRAWR 9,4:DRAWR 19,9:DRAWR 9,5:DRAWR 7,-7:DRAW 
R -7,-7:DRAWR @,5:DRAWR -19,9 

59 MOVER 2,2:FILL 1 

6@8 MOVE 394,85 

619 DRAWR 229,9 : DRAWR @,- 89 : DRAWR - 226,9 : DR 
AWR G, 89 

629 LOCATE 46,22: PRINT"VALIDATION" 

63@ MOVE 389,49 

648 DRAWR 59,9 : DRAWR 9,-19 : DRAWR - 59,@ : DRA 
WR @,1G 

659 MOVER 2,-2:FILL 1 


669 REM 

679 REM Deplacement curseur 

638 REM ----------------- 

679 LOCATE 49,18:INPUT"PERIODE INITIALE :"3P9 

799 X=59 : Y=269 

719 X9=X : YO=Y : K=9 

72@ RF=INKEYS:IF R#="" THEN GOTO 729 

739 KP=N 3 V2=Y 

749 IF ASC(RF)=249 THEN Y=Y+4 : GOSUB 869 : G 
OTO 799 

759 IF ASC(R#)=241 THEN Y=Y-4 : GOSUB 869 : G 
OTO 799 

769 IF ASC(RF)=243 THEN X=X15 : GOSUB 369 : G 
OTO 799 

779 IF ASC(RS)=242 THEN X=X-5 : GOSUB 869 : G 
OTO 799 

789 IF ASC(RF)=32 THEN GOSUB 1999:l£=K+1: IF K= 
6 THEN GOTO 959 

79@ MOVE X2+1 ,Y2-2:DRAWR 2,9,9:DRAWR @,2,@:D 
RAWR -2,9,@: DRAWR O,-2,9 

899 MOVE X+1,Y-2 :DRAWR 2,9,1:DRAWR @9,2,1:DRAW 


R -2,9,1: DRAWR O,-2,1 
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319 P=-INT((Y-259)/4) 

829 T=INT((X-5@)/5) 

839 LOCATE 69,2:PRINT " PERIODE:"FP 

849 LOCATE 69,3:PRINT " T. * EL 

859 GOTO 729 

369 REM =============2s=s=2======s=2===z==s= 

379 REM Procedure TEST 

889 REM =========22=2=s=================== 

899 IF X<=51 THEN X=S1 

799 IF X2=559 THEN X=559 

919 IF Y<=121 THEN Y=121 

929 IF YV>=369 THEN Y=369 

959 IF X<X9 THEN X=Xx9 

749 RETURN 

956 REM 

569 REM SON 

979 REM té 

989 LOCATE 44,22: PRINT'"'<R? repete le son" 

99@ LOCATE 44,23:PRINT'<N> nouveau graphe” 

1999 LOCATE 44,24:FRINT'<F> fin 5 

1919 ENT -1,A(1),B(1),C(1),A(2),B(2),C(2),A(3),B(3 
),C(3),A(4),B(4),C(4),A(S),B(5),C(5) 

1926 SOUND 1,P9,586,15,,1 

1939 RH=INKEYS:IF R#="" THEN GOTO 1939 

1946 IF R&="R" OR RF="r" THEN GOTO 19529 

1959 IF RHE="N" OR RS="n" THEN RUN 

196@ IF RF="F" OR R$S="f" THEN CLS:LOCATE 26,1G:PRI 
NT "AU REVOIR.":END 

1979 GOTO 1959 

1959 END 

1999 REM. mamanm==z=s==2=2=-===2======== 

1199 RENM Procedure VALIDATION 

1119 REM SSSSSSSSSSSSE=SSESSES SES ES=SEz== 

1126 F=-INT((Y-259)/4): PF(KI=PIT=INT((X-59) /5):TCK 
)=T:IF K<>9 THEN DF=P(K)-P(K-1):DT=T(K)--T(K-1) ELS 
E X9=S5S9:YG=Y: X=X9:Y=Y9:GOTO 1419 

1139 REM 


1149 REM Parametres 
1159 REM  ------------ 


1169 IF DPF=9 THEN A=DT:B=9:C=1: GOTO 1269 

1179 FOR I1=ABS (DPF) T9 1" STEP + 

1189 IF (DPF MOD I) =9 AND(DT MOD I) =9 THEN A=1I: 
B=DPF/I1:C=DT/1:GOTO0 1269 

1199 NEXT 

1290 IF C<=9 THEN A=1:B=DP:C=1: GOTO 1266 

1219 IF A<>1 THEN GOTO 1269 
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1229 IF DPF MOD DT =9 THEN GOTO 1269 
1239 IF X=9 THEN DT=DT-1 : GOTO 1179 
12949 IF DP MOD ?2=9 THEN DT=DT-1 ELSE IF DF>9 THEN 
DP=DF-1 ELSE DP=DP+Ii 

1259 GOTO 1179 

1269 A(KI=A : B(K)=B : C(K)=C 

1279 T{K)I=T(K-1)+AXC 

1289 F(KI=P(K-1)+AXE 

1299 REM 

1399 REM Trace variation 

SO RM 

1329 MOVE X9,Y9 

1359 FOR II=1 TO À 


1349 DRAWR 9, -BX4 
1359 DRAWR CXS ,9 
1369 NEXT 


1376 X=XPOS : Y=YPOS 

1359 KG9=X : YA=Y 

1399 LH="- #H#" 

1499 LOCATE 68,197+K:PRINT TAB(68)ASTAB(72)B; TAB(?76 
1C 

1419 RETURN 


O A partir de l’expression de l’enveloppe. 


Utilisation 


A la mise en route du programme, l’écran se présente de la manière 
suivante : 





PERIODE INITIALE :? 142 





L'ordinateur vous demande la valeur initiale de la période. Vous 
introduisez une valeur allant de 1 à 4095 (certaines de ces valeurs 
correspondant à un son inaudible !), et vous appuyez ensuite sur RETURN. 
Comme pour le programme correspondant au volume, une série de 0 


apparaît au bas de l’écran à gauche. 
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PERIODE : - 
T. 3 


PRE Te, 


PERIODE INITIALE :? 142 





Introduisez les valeurs des paramètres définissant l’enveloppe ton. 
Quand la dernière valeur a été introduite et que RETURN a été appuyé, le 
graphique se dessine et le son est généré. Vous constaterez que la totalité 
de l’axe horizontal est occupé par le temps mis pour l’exécution totale d’une 
enveloppe tonale. 


PERIODE INITIALE :? 142 





x 


Le menu habituel vous invite à choisir de réentendre le son (R), de 
redessiner une nouvelle enveloppe (N) ou encore de faire autre chose (F). 


Analyse du programme 


La structure du programme est, dans les grandes lignes, semblable à celle 
relative à l'enveloppe volume et nous n’allons pas la reprendre ici dans son 
entièreté. Deux procédures diffèrent cependant : 









om mr 
Répéter 5 fois 1040 
Fixer les valeurs A(), B() à partir des variables AA(0,J), 
AA(1,J) 1050 
Si AA(2,J) = O0 (aucune valeur n’est attribuée dans la troisième 1060 


colonne) 


Attribuer à C() la valeur de 
AA(2,J) 


Fixer la valeur C() à 1 
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1090 
Calculer l’échelle verticale ECHP en tenant compte de 25 1110 
comme borne de variation 
Attribuer aux coordonnées du curseur graphique les coordonnées 
de l’origine des axes (X,Y) 
Répéter 5 fois 600 
Nombre de pas nuls? (A(F) = 0) 620 
Répéter un nombre de fois égal au nombre de pas 630 
. 
Attribuer à X la valeur de la position horizontale 660 
du curseur 
Afficher sous le dernier repère de l’axe horizontal 690 
du graphique la valeur de T 
Afficher au long de l’axe vertical, les valeurs de la variation 700-710 
de période correspondant aux valeurs introduites 
720 


Fin de la procédure 
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Liste des variables 


PO 


X0,Y0 
X,Y 


T 
ECH 
TP 
ECHP 
RE$ 


valeur base de la période (l’enveloppe sera entendue à partir de 
cette période). 


origine des axes du graphique. 


position actuelle du curseur graphique 
position dans le tableau des paramètres. 


temps total correspondant à l'enveloppe tonale décrite. 
échelle de graduation adaptée à la valeur T. 

variation totale de la période. 

échelle de graduation de la période adaptée à la valeur de TP. 


chaîne correspondant aux chiffres et signes introduits lors de 
l'introduction des paramètres. 


AA(X,Y) valeur du paramètre introduit (X désigne la colonne et Y la 


A( 
BO 
CO 
B 


ER 


R$ 


L,J 


ligne). 

nombre de pas. 

pas du volume paramètres de l'instruction ENV. 
durée d’un pas déterminée à partir des AA(X,Y). 


NS 


valeur du paramètre B(I) ramenée si nécessaire à une valeur de 
0 à 15. 


drapeau de constat d’erreur dans l'écriture de la valeur des 
paramètres : 

= 1 si une erreur a été commise ; 

= 0 si aucune erreur n’a été commise. 


lettre, chiffre, signe correspondant à la touche appuyée lors de la 
lecture du clavier. 


variables utilisées dans des compteurs de boucles. 


19@ * -------"" - 
119 * PROGRAMME 13 
129 * GRAPHIQUE ENVELOPPE TON A 


139 ? PARTIR DES VALEURS PFARAMETRES 
LAB: PDC TD ne a 
169 INK 9,26: INK 1,@: MODE 2 

179 REM 


189 REM Referentiel graphique 
ÉTOEREM NT Eee SRE 


299 CLG 

219 X9=59 : Y9=269Q 

229 MOVE X9,Y9 :DRAWR 569,9 : DRAWR -5,5:DRAWR 5 
579: DRAWR -5, -5 

239 X9=59 : Y@=129 
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249 MOVE X9,YS :DRAWR G,266 
259 FOR I=i TO 199 


269 X=X9+ 5 XI+1 

279 MOVE _ X,269 

28 DRAWR 9,-3 

299 IF I MOD 19 =9 THEN DRAUR 9,-5 
399 NEXT I 

319 FOR I=1 TO 69 

320 Y= Y9+4 KI+1 

339 MOVE  X9,Y 

349 DRAWR -3,9 

359 IF I MOD 5 = @ THEN DRAWR -5,9 


369 NEXT I 

379 LOCATE 5,2 : PRINT "PF"; 

389 LOCATE 2,9 : PRINT " g'; 

399 LOCATE 75,19:PFRINT "T"; 

469 GOSUB 7539 : GOSUB 569 

419 REM 

429 REM SON 

4539 REM === 

449 MOVE 315 , 79:DRAWR 229,9 : DRAWR @,-69 : DRAW 
R -229,@ : DRAWR 6,69 

459 LOCATE 44,22:PRINT"<R}> repete le son” 

469 LOCATE 44,23:PRINT"'<N> nouveau graphe” 

479 LOCATE 44,24:PRINT"'<F2> fin vel 

454 ENT -1,4(1),B(1),C(1),A(2),B(2),C(2),A(3S),B(S) 
,C(3),4(4),B(4),C(4),A(5),B(5S),C(S) 

49a SQUND 1,P9,1999,15,,1 

599 RS=INKEYS:IF R$="" THEN GOTO 599 

519 IF R#="R" OR R$="r" THEN GOTO 499 

S29 IF RS="N" OR R#="n" THEN RUN 

530 IF R5="F" OR R$S="#f" THEN CLS:PRINT "AU REVOIR. 
"“: END 

549 GOTO 599 

559 END 

569 REM =======2====================S=== 

57@ REM Procedure TRACE VARIATION 

SS9 REM ===========================2=2=== 

598 MOVE X9,269 : X=X9:Y=269 

699 FOR I=1 TO S 


619 B=B(I) MOD 1é6 

629 IF A(I)=9 THEN GOTO 689 
636 FOR I11=1 TO A(I) 

64 DRAWR 9,B *-ECHP 
659 DRAWR C(I)XECH,9 
669 X=XPOS 

679 NEXT II 


689 NEXT I 

69% LOCATE 68, 9:PRINT T;i 

769 LOCATE 2,3:PRINT 199/ECHPX-1 
719 LOCATE 2,16:PRINT 169/ECHP 
729 RETURN 
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739 
749 
759 
735 
769 


779 
789 
799 
899 
819 
829 
839 
649 
359 
6869 
=STR 
+" ” 
879 
5:60 
889 
8979 
SUB 
799 
919 


929 
939 
949 
959 
960 
R=1: 
979 
N ER 
989 
R=1: 
999 
199@ 
1919 
1915 
1929 
1939 
1949 
1959 
1969 
) 
1979 
1989 
1999 
1169 
1119 
1129 


REM =============================== 
REM LECTURE ECRAN FOUR VALEURS 

REM =============22==2=2=2s2====222z2zzsz 
REM Procedure 


LOCATE 45,29: INPUT "PERIODE INITIALE ":;:P@ 


FOR I1=1 TO S 

FOR J=9 TO 2 

LOCATE S+JKk7,19+I : PRINT" 9 " :;3 

NEXT J 
NEXT I 
X=9 : Y=1 
LOCATE S+XX7,19+Y: PRINT "?";3 
RS=INKEYS: IF R$="" THEN 849 
IF ASC(R#)<2>13 THEN GOTO 919 
AA(X,YI=VAL(RES): GOSUB 939 : IF ER=1 THEN RES 
INGS(LEN(RE#)," "):LOCATE S+XK7,19+Y: PRINT RES 
3: RES="": GOTO 839 
IF RES="" THEN LOCATE S+XX7,19+Y: PRINT AA(X, Y) 


TO 899 
RES="" 
X=X+1:1F X22 THEN X=9 : Y=Y+1 : IF Y=6 THEN GO 
1919:RETURN 
GOTO 839 
RES=RES+RS: LOCATE S+XX7,19+Y: PRINT RES+" "; 
GOTO 849 
REM ===========================S======= 
REM Procedure VALIDATION PARAMETRES 


REM ========2======2=2=2=2=2================ 

IF X=9 THEN IF AA(X,YI<9 OR AA(X,Y)2>127 THEN E 
RETURN 

IF X=1 THEN IF AA(X,Y)<-128 OR AA(X,Y)>127 THE 
=1:RETURN 

IF X=2 THEN IF AA(X,Y)<9 OR AA(X,Y)2>25S5 THEN E 


RETURN 

ER=9Q 

RETURN 

REM Frocedure 


REM TRANSFORMATION EN PARAMETRES SON 


FOR J=1 TO 5 
A(J)=AA(G,J):B(J)=AA(1,9J) 
IF AA(2,J)=9 THEN C(J)=1 ELSE C(J)=AA(2,7 
T=T+ACJ)KC(J) 
TP=TP+A(J)KXB(J) 
NEXT J 
ECH=599/T 
IF TP>25 THEN ECHP=ROUND(199/TP) ELSE ECHP=4 


RETURN 
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Bruits 


On appelle bruit, un son qui n’est pas périodique, contrairement aux sons 
musicaux, c’est-à-dire qu’ils ne se reproduisent pas de la même manière 
dans le temps. Les bruits peuvent cependant posséder une période base. 


Pour vous en rendre compte, nous allons adopter à nouveau l'instruction 
SOUND. 


QD es ammr see 


119 PROGRAMME 14 

129 de ce 0 nn 0e ne De een ven tes ot 0 ot veu: test tne 0 cer nent eee ei des tes 
139 FOR I=8 TO 31 

149 SOUND 1,9,199,15,,,1 

158 NEXT 1 

169 END 


A la mise en route de ce programme, une succession de bruits (32) sera 
émise, bruits dont la hauteur variera d’un niveau élevé (son aigu) vers une 
valeur plus faible (son grave). 


Un nouveau paramètre est venu s’ajouter, il peut prendre une valeur 
variant de 0 à 31. 


SOUND 1, 0, 100, 15,,, I 


Détermine la période base du bruit 


Le second paramètre peut correspondre à une période, un bruit de fond 
est alors entendu en filigrane du bruit émis. 


SOUND 1, 125, 100, 15,,, 17 


Vous pouvez accompagner vos jeux par des sons reproduisant des effets 
spéciaux : explosions, applaudissements, coup de feu. Voici quelques 
exemples. Votre imagination doit cependant vous permettre d’utiliser au 
mieux les instructions que nous venons d’aborder. 


19 ? me om où ve me du en mue ms oi de à où su con on den mm ensnée de de cæ ce 10 
29 * PROGRAMME 15 

30” GALOP . 

49 ? -—-—----——————— — — —- - mmmemme————— 


199 ENV 1,20,1,1,33;-t,1 

119 FOR I=1 TO 39 

129 SOUND 1,4969,6,9,1,1,19 
139 NEXT I 

14G END 
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199 57 0e en vestes ins En jun eue der du ven don mie mn dus ver di dde don mm ei 6e des un ms Li en 
119 ? PROGRAMME 16 

129 ” VAGUES 

139 * --—" "2" 
149 ENV 1,15,1,3,59,8,1,15,-1,8 

159 FOR I=1 TO 19 


169 B=INT (RND(8) #19) +1 

179 SOUND 1,9,215,9,1,,B 

189 NEXT I 

199 END 

199 PS, on mi nn cu: die 2e eee cum ni et tre inbe me coli DO nes ton 308$ cn Mi out Vs ste ons eu mon me D te 
119 * PROGRAMME 17 

129 ? DECOLAGE 

139 * --------. “ss 


149 DUREE=199 
159 VOL=15 

169 TON=25 

179 SOUND 1,9,DUREE, VOL, , , TON 
189 TON=TON-1 

199 IF TON>29 THEN GOTO 179 
299 DUREE=DUREE-S 

219 IF TON >15 THEN GOTO 178 
229 VOL=VOL-1 

239 IF TON=9 THEN END 

249 GOTO 178 


Combinaison des instructions 


Il est possible d’utiliser une combinaison des instructions de manière à 
obtenir des sons particuliers. 


199 D en mien es dns Le mi ne ne eu dt ee eu Ne ra Mad sue de mé 9/out Se mu ei 0 
11@G ? PROGRAMME 18 

129 Lu = 2 ve où ue 0 ve 0 on: emilie, ne a nou nan nm die (ni ne mé 0e) de Gi en Led Le da 
139 ENV 1,5,2,8,4,-3,6,6,7,4,4,-6,2 
149-ENT. -1,3,1,1,3,-2,1,3,1.1 

159 PER=125 

169 FOR I= 1 TO 19 

17@ SOUND 1,PER,6,15,1,1 

189 PER=PER+4 

199 NEXT I 
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199 PS. 0 on fé eù Re 0 M el eV de €5 28 de nes vus où oh voi de de dei de mé de on de 
119 PROGRAMME 19 

129 D en ce ne ee cles di En de de eu de à on ed ie né er oi: ii où ei tie mé GE de à 
139 ENV 1,6,-8,2,2,-9,4,5,8,4,1,5,7 
149 ENT É#,3,1,1,5,62,1,5,1,1 

159 PER=125S 

169 FOR I= 1 TO 29 


179 SOUND 1,PER,9,15,1,1,15 

159 PER=PER-1 

199 NEXT I 

299 END 

OO ee mme ms pe me 
119 ? PROGRAMME 29 

129 ? BOMBE 

13539 7 ess me ue en me oo ses on en ee mn re ce me © = 00 2e ne = © == me me ee 
149 ENV 1,15,-1,29 

159 ? 


169 ? SIFFLEMENT CHUTE 
179 FOR I= 48 TO 179 


139 SOUND 1,1, 1,15 
199 NEXT I 
299 ? 


219 ? EXPLOSION 
228 SOUND 1,9,399,15,1,,16 
239 END 


AUTRES INSTRUCTIONS BASIC 


Premier paramètre de SOUND 


Nous avons jusqu’à présent utilisé l’instruction SOUND sur un seul canal 
alors qu’en fait, trois canaux nous sont accessibles, soit séparément, soit 
ensemble. Le premier paramètre peut prendre une valeur allant de 1 à 255. 
Pour comprendre l’action des diverses valeurs, référons-nous à la structure 
binaire de ce paramètre. 

6 5 4 3 2 1 0 


N° dubit: 7 
MR 
| | 


Flush 
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Si vous désirez émettre un son sur le canal A uniquement, vous donnerez 
à A la valeur 1, si c’est le canal B que vous souhaitez utiliser, vous 
emploierez la valeur 2, si 4 est indiqué, se sera le canal C qui sera sollicité. 
Des combinaisons peuvent avoir lieu. 





L'utilisation de ces valeurs conduit à produire les sons en stéréophonie. 
Vous disposez d’une borne permettant de brancher soit un écouteur, soit un 


amplificateur. En compulsant les plans figurant dans l’ouvrage de 
référence, on constate que 


Vers ampli interne 
et haut-parleur 









Générateur 
sonore 





a 
Vers les extensions 






A 
B 
C 








1 K 10 K 


stéréo 


le canal gauche est dirigé par A et B, le canal droit par B et C. Il devient 
alors possible de générer un signal stéréophonique, le son généré par B 
semblant venir du centre. 
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199 * 
119 * PROGRAMME 21 

129 * =" 
139 SOUND 1,299,209 

149 SOUND 4,199, 209 

159 END 


Un autre ensemble intéressant est ce que les concepteurs ont nommé 
«rendez-vous ». 





(32) (16) 


Supposons que vous vouliez générer les sons suivants sur les trois voies : 


Canal 























Si nous écrivons le programme suivant : 


199 Ÿ ------- 
119 ’ PROGRAMME 22 

129 ? RENDEZ-VOUS 

139 Pomme mm mm mm mm mm mm mm mm me 


148 SOUND 1,239,59 
159 SOUND 2,199,59 
169 SOUND 4,159,59 
179 ? 

189 SOUND 1,213,59 
199 SOUND 4,149,59 
289 ‘ 
219 SOUND 2,239,59 
229 SOUND 4,284,59 
239 ? 

249 SOUND 1,239,54 
259 SOUND 2,199,59 
269 SOUND 4,159,59 
279 END 
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et le mettons en route, vous constaterez que l’ordinateur interprète : 


di 
s J) 
c Jdde 


Il a ajouté les sons à la suite les uns des autres, sans tenir compte de 
l’absence d’une voix lors de deux exécutions. Pour éviter ce phénomène, 
nous utiliserons les «rendez-vous ». 


J 


rendez-vous avec C | 





ce qui se traduira par le programme : 


199 9. nee de 2 ri en né en caries ue dé ei ei eu bee Ge. Mie eu ee cor de 00 2 0 
119 * PROGRAMME 23 

128 ? RENDEZ-VOUS 

139 ? + 


149 SOUND 1,239,59 
158 SOUND 2,196,59 
169 SOUND 4,159,59 
179 ? 

189 SOUND 1+32,213,59 
199 SOUND 4+8 ,149,59 
298 ? 

219 SOUND 2+32,239,59 
22@ SOUND 4+16,284,59 
239 

249 SOUND 1,239,59 
259 SOUND 2,199,59 
269 SOUND 4,159,59 
278 END 


Cette fois, nous obtenons ce que nous désirons. 
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Le paramètre comporte encore deux éléments très importants : 


«flush » 


5 À : 2 1 0 


signal d’attente 


Si le signal d’attente est mis à 1, ce qui s’obtient en ajoutant 64 à la valeur 
du premier paramètre, le générateur sonore n’émet aucun son. Il faut lui 
donner une instruction libérant le canal. Soit en ajoutant 128 au 
paramètre À (c’est le «flush»), soit en utilisant l’instruction RELEASE 
suivie du numéro du canal concerné. 


199 
116 
129 
1359 
149 
159 


ou 


199 
119 
129 
13@ 
149 
159 


Autre exemple : 


19@ 
119 
129 
139 
149 
159 
169 
175 
139 
19a 
249 
219 
229 


SOUND 1+64,159, 199 
SOUND 1+125,159,199 


END 
, PROGRAMME 25 
SOUND 1+64,159, 199 


RELEASE 1 
END 


? PROGRAMME 26 
RELEASE 


SOUND 1+64,239,59 

SOUND 2+64,199,59 

SOUND 4+64,159,59 
RELEASE 2 

FOR T=1 TO 599 : NEXT T 
RELEASE 1 

FOR T=1 TO 399 : NEXT T 
RELEASE 4 

END 
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Notion de file sonore 


Les termes « file », «queue » ou encore «suite » désignent tous le même 
concept. Chaque canal possède la possibilité de mémoriser une suite de 
cinq sons successifs, l'ordinateur s’empressant de compléter la « queue » si 
celle-ci s’avère incomplète. 


Il est possible de se rendre compte de l’état d’une « queue » sonore en 
utilisant l'instruction : 


PRINT BIN$ (SQ(n° canal),8) 


le numéro du canal peut être 1, 2 ou 4, désignant par là le numéro du canal 
à examiner. L'affichage sous forme binaire permet de mettre en évidence ce 
que représente chaque bit. 





Place libre 
dans la file de sons 


endez-vous 
Attente dans la queue 


Canal en train de jouer 


Essayez le programme suivant : 


199 Vo ne me oem tn von ven ee des den men 06m ds ‘one. mit ven: ue nel © dei Ni ne ei nt M ee oui 
118 * PROGRAMME 27 

129 ? QUEUE 

139 ? ----.------ mem 
149 CLS 

159 FOR 1=159 TO 199 STEP -5 

169 SOUND 1,1,59 

179 PRINT BINS(S@(1),8) 


189 NEXT I 
199 END 
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Vous obtenez l'affichage suivant : 


1890881068 


196060608066 
19008880 
10006066 
19080488 
19900006 


ATTENTION, vous obtiendrez le même résultat d’un CPC 664 ou d’un 
CPC 6128, à condition de réaliser une copie d’écran et non une impression 
directe. 


La file de sons du canal A est construite par l’ordinateur qui maintient la 
file complète (5 sons successifs). Vous le constatez en regardant les 
S premiers affichages qui successivement indiquent qu’il reste place pour 4, 
3, 2, 1 et finalement 0 sons. 


Lorsque l’affichage s’arrête et que le message « Ready » apparaît, quatre 
sons sont encore émis par le générateur sonore. 


Lorsqu'une file n’est pas complétée on peut utiliser une instruction dite 
de rupture de programme pour réaliser certaines choses. 


Par exemple : 


195 ? === 
119 PROGRAMME 28 

129 ? ON SG( ) 

139 ? =========s===2===2=s=s=sss=ssszzzzzs= 


149 A=G:PE=159 

159 ON SG(1) GOSUB 249 

169 PRINT À ,BIN#(SG(1),8) 
179 A=A+19S 

189 IF A= 59 THEN END 

19G FOR T=1 TO 1@GG:NEXT T 
249 GOTO 169 

219 ? ==================== 
229 ? Procedure FILE 

239 ? ==================== 
249 SOUND 1,PE,29 

259 FRINT "PASSAGE PROCEDURE", 
269 FRINT BINS(SA(1),8) 
279 PE=PE-1 

259 ON S@(1) GOSUB 249 

294 RETURN 
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A la mise en route du programme, la file sonore se crée (vous le constatez 
par l’affichage du message « PASSAGE PROCEDURE »). Dès que la file 
est complète, le programme revient à l’affichage de la variable A. Lorsqu'il 
s’agit de la première mise en route du programme, la procédure n’est plus 
utilisée après un premier affichage, ce qui est normal puisque l’expression 
binaire décrivant la file indique que celle-ci est complète. Lors d’une mise 
en route ultérieure, la procédure est appelée fréquemment, car l’affichage 
de A correspond à une file incomplète. 


1 MHZ 


Les registres 
du PSG 


STRUCTURE GÉNÉRALE 


Le schéma ci-après, quoique très simplifié, donne une image des 
différentes parties constituant le PSG et peut faire comprendre comment 
elles génèrent ensemble un son complexe. 





moe | | 
: 16 : 256 


Générateurs de sons Contrôle Générateur 
de l’amplitude d’enveloppe 


és Période 
B ; 
[s]L [9 


Convertisseurs D/A 





Haut-parleur 
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Cinq blocs composent le PSG : 


E. 


Les générateurs de sons. Au nombre de quatre : trois destinés aux 
sons musicaux (notes) et appelés respectivement canal À, canal B et 
canal C. Le quatrième génère du «bruit », c’est-à-dire qu’il élabore un 
train de signaux de durée pseudo-aléatoire. 


. Un mélangeur (mixeur) qui permet de combiner les différents 


générateurs de sons entre eux. 


. Un module de contrôle de l’amplitude. Comme nous l’avons vu dans le 


chapitre précédent, l’amplitude est une des caractéristiques du son 
(amplitude = intensité = volume). Le PSG permet de fixer le volume 
pour chaque canal son, soit sous la forme d’une amplitude fixe 
contrôlée par micro-processeur, soit sous la forme d’une amplitude 
programmée par l'intermédiaire du générateur d’enveloppes. 


. Un générateur d’enveloppes (enveloppe volume) qui permet de 


produire un modèle de variation du volume et qui est utilisé pour 
moduler les sons émis. 


. Les convertisseurs digitaux/analogiques. Ils convertissent les signaux 


provenant des différents modules en vue de produire un signal de 
sortie interprétable par le haut-parleur. 


Les registres qui permettent la programmation du PSG sont au nombre 
de seize numérotés de RO à R15, mais le son n’est concerné que par les 
registres RO à R13. Dans notre schéma, nous avons indiqué le numéro des 
registres dans le petit cadre associé à chaque partie. 


ÉTUDE DE CHAQUE REGISTRE 
Registres 0 à 5 


Ils précisent la fréquence du son musical qui sera émis. Ils sont groupés 
par deux, chaque groupement correspondant à un canal sonore particulier. 


Admet des valeurs de — à — 
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Considérons le canal A. La période du son sera écrite dans deux 
registres, le RO et le R1. RO comportera un nombre écrit sur 8 bits (de 0 à 
255), tandis que R1 ne peut contenir qu’un nombre écrit sur 4 bits (de 0 à 
15). 


Tous les sons produits par le PSG découlent de l’horloge du 
micro-processeur. Celle-ci bat un million de fois par seconde (1MHz) et le 
PSG effectue une première division par 16, avant l’entrée dans les 
générateurs proprement dits. 


Chacun de ceux-ci n’est en fait qu’un diviseur de fréquences par un 
facteur allant de 1 (la division par zéro n’a aucun sens) à 4095 — 
(15*256)+(255). 

Dès lors, pour émettre un son d’une fréquence donnée, il suffit 
d'appliquer la formule : 

PERIODE = (1000000 / 16)/F 


Si nous essayons de générer le LA3 dont la fréquence est de 440 Hz, nous 
obtenons : 


PERIODE = (1000000 / 16)/440 = 142,04555 
en l’exprimant sous forme d’un nombre binaire de 12 bits, on obtient : 
PERIODE = BIN$ (PERIODE, 12) 
0000 10001110 ou en décimal 0 dans le registre 1 
RI1 RO 142 dans le registre 0 


En Basic, cela reviendrait à écrire SOUND 1,142. Ce qui a été dit pour le 
canal À est transférable aux canaux B et C. 


Registre R6 


Ce registre permet de programmer un «bruit » de la manière suivante : 


URes |76)s41s/2)1)0 Valeurs décimales 
ER HR 


les 5 premiers bits sont seuls utilisés, ce qui fait varier le diviseur de 
fréquences de 1 à 31: 


(24 +25 +22 +21! + 20) 
Les formules utilisées pour la génération des sons musicaux pour une 


fréquence donnée sont applicables à la génèse du «bruit». Toutefois 
l’étendue de la plage des fréquences accessibles est moins importante. 
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Si période = 31 (maximum) Fmin = 62 500/31 = 2016,13 Hz. 
Si période 1 (minimum) Fmax 62 500 Hz. 


Cette dernière valeur engendre un bruit inaudible, l’oreille humaine 
entendant au maximum un son de 20 000 Hz (à condition que l'oreille soit 
jeune et parfaitement développée). 


Registre R7 


Il contrôle le mixage entre les trois générateurs de sons musicaux et le 
générateur de bruit. 


Reg. IN/OUT Bruits Sons Pour le son 
musicaux 
ÉARen 





Les 8 bits relatifs au registre 7 sont divisés en trois zones réservées : 


— aux sons musicaux ; 
— au bruit; 
— aux ports d’entrées/sorties A et B. 


Pour utiliser les possibilités de mixage, il suffit d'indiquer un «1 » dans le 
bit correspondant au canal de sortie que vous ne souhaitez pas activer. Par 
exemple, pour mixer un son sur le canal A avec un son sur le canal C et un 
bruit sur le canal À : 





nous introduirons la valeur décimale 50 dans le registre 7 
(2° + 2* + 2! -- PRINT &x110010) 
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Registres 8 à 10 


Ils déterminent l’amplitude du signal à envoyer au convertisseur. 


DOODDE 
DODDDE 
Les quatre premiers bits déterminent l’intensité du son (le volume) émis 


par chaque canal. Cette intensité variera de 0 (volume nul) à 15 (volume 
maximum). 








Le cinquième bit (B4) est utilisé pour indiquer à la machine que le 
générateur d’enveloppes comporte toutes les informations relatives au 
volume. B4 prendra alors la valeur 1. En fait, toutes les valeurs décimales 
comprises entre 16 et 31 signaleront ce fait. 


Registres 11 et 12 


Ils permettent de contrôler la période de l’enveloppe volume. 


de 0 à 65535 








La valeur à introduire s'écrit sur 16 bits et est donc comprise entre 0 et 
65535. Ce qu’il faut comprendre, c’est que le générateur d’enveloppes fait 
croître régulièrement le volume pendant la durée codée par les 16 bits. 


Amplitude Maximum 





r-_2%6 xd 
1 000 000 
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Cette durée s’exprime par un décompte à partir de l’horloge de base de 
1MHZ divisée par 256. La durée d’une dent de scie élémentaire est donc 
de : 


T = 256 xd 
1000000 


avec pour d = 0 T = 0,000256 sec. (256s) 
d = 65535 T = 16,77696 sec. 


Registre 13 


Il contrôle les diverses formes de modulation utilisées par le PSG. 





Quatre bits sont utilisés pour désigner la modulation qui sera utilisée par 
le PSG. Chaque bit correspond à une caractéristique particulière. 


Bit O maintien du son, lorsque l’attaque a été réalisée, la valeur 1 entraîne 
la continuité de la dernière période. 


Bit 1 alternance, le son se répète, mais de manière symétrique si la valeur 1 
est attribuée. 


Le bit 0 est dominant par rapport à celui-ci, c’est ainsi que les deux tracés 
ci-dessus ont leurs deux premiers bits à 10. 
Bit 2 précise l’attaque du son, le 1 désigne une croissance du son, le 0 une 
décroissance. 


Bit 3 décide de la continuité du son, le 1 entraîne la continuité tandis que la 
valeur 0 ne laissera que la première phase active (le premier cycle). 
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Valeurs 
décimales 















Numéro de 
la forme 


CDD OI LICE ts MES 


Bits Enveloppe son 









DOODE=ICSEE 
MAOOUUN "HE 

DOCON 1 
MRODOON 777 
MRDOOON IE 

DODON JE 
EROOOUN-ICEES 


Remarque : x remplace indifféremment 1 ou 0. 


= 
id 


EN 
BR 


Tableau récapitulatif itulatif 


R ; Valeur 
egistre décimale 





Fréquence 


du son 
musical 





78 | AMSTRAD EN MUSIQUE 



























Valeur 
Registre décimale 
Hire RRRRRC 


Mixer 










ECS 
musicaux 
SOBGODE 


EE A 0-15/16 
CORRECTE 


BTE Tssne 
ul | || | | | | Jos 

DT ET es 
Forme de : 


l'enveloppe 13 0-16 


Amplitude 
du signal 





Période 
enveloppe 













ESSAIS DE SONS 


Rien ne vaut l’essai pour comprendre ce qui se passe. Pour programmer 
le PSG, nous allons utiliser une routine de la ROM pour charger les 
registres. 


En nous référant à l’excellent ouvrage de Daniel Martin, «Clefs pour 
AMSTRAD », page 104, nous lisons qu’il existe un point d’entrée situé en 
BD34 qui va nous permettre d'envoyer une donnée dans un des registres du 
PSG. 


Pour cela, nous devons écrire dans le registre A du Z80 le numéro du 
registre du PSG concerné, et dans le registre C le contenu (la valeur à 
attribuer au registre du PSG). Un petit programme en langage machine va 
nous aider à accomplir cette tâche : 


ED:A,; REG. 3E. ::: 
LD C, VA QE in 
CALL BD34 CD 34 BD 
RET C9 


LES REGISTRES DU PSG | 79 


Installons cette routine et utilisons un programme Basic pour introduire 
les valeurs. 


OO RER Se a = ne 
119 REM PROGRAMME 29 

129 REM PROGRAMMATION DU P5G 
LS RE ee 
149 REM 

159 REM initialisation 

169 RE SSSs=s====z===z= 

179 MM=HIMENM 

189 MMAX=MM-19S 
199 MEMORY MMAX 
299 REG=MMAX+2 : 
219 FOR I=1i TO 8 
229 READ AS 
239 POKE MMAX+I,VAL("&"+A5%) 

249 NEXT I 

259 DATA 3E,99,9E,698,CD,34,BD,C9 

264 REM 

279 REM prog. principal 

259 REM Sesesssssz=sz2== 

298 CLS 

399 INPUT "NUMERO DU REGISTRE : "3; NR 

319 IF NR<S THEN END 

329 IF NR>13 THEN PRINT:PRINT"'IMPOSSIBLE !":PRINT: 
GOTOG 569 

539 FOKE REG,NR 

549 INPUT "VALEUR A CHARGER °"5N 

359 FOKE VA,N 

369 CALL MMAX+1 

379 PRINT 

339 GOTO 399 


VA=MMAX +4 


Soit à générer le La3 sur le canal A avec une enveloppe de type 8, dont la 
durée de montée d’une dent est de 1 seconde. 


Le La3 correspond à une période de 142 soit : 142 dans RO. 
0 dans R1. 


Le canal A doit être sélectionné soit : 62 dans R7. 


L’amplitude sur le canal A est déclenchée par l’enveloppe 16 dans R&. 


La période de l’enveloppe sera de : 
d = 1000000 + T = 1000000 , 1 = 3906,25 
256 256 
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exprimé en binaire 16 bits 


00001111 01000010 
15 66 
La forme étant la huitième, il suffit de mettre : 
66 dans Ril1, 
15 dans R12, 
14 dans R13. 


Introduisez ces valeurs à l’aide du programme et écoutez le résultat. 


Pour interrompre le son, mettez le volume à O0 (R8=0). Modifiez les 
paramètres afin de bien intégrer le rôle de chacun. 


Voici quelques autres illustrations. 


Les bruits de vagues 


R6 —  1- période 1 pour le bruit. 

R7 = 55 - bruit sur le canal A. 

R8 = 16 - amplitude définie par l’enveloppe. 
R12 = 32-T = 2.09 sec. 


R13 = 14 - forme 8. ( AAA ) 


La lame vibrante 


RO = 142 - période de 142 (La3). 

R7 = 62-son sur canal A. 

R8 = 16 - amplitude définie par l’enveloppe. 
R12 = 10-T = 0,65536. 

R13 = 1-forme 1. (KR ___ ) 


Si vous désirez modifier la durée utilisez R12 1. 


Le son étant très bref, la remise en route s’obtient en tapant 13 suivi de la 
valeur à introduire. 


Le moteur à explosion 


RO = 0 

R1 —  4- période de 1024. 

R7 = 62-son sur canal A. 

R8 = 16 - amplitude définie par l’enveloppe. 
R11 = 100 

R12 = O-T = 0,0256 sec. 

R13 = 8-forme 3. ( RRRRR  ) 


C’est le moteur d’un avion au décollage. Pour entendre ce qu’il devient 
au moment de l’envol, il suffit de modifier : 


R11 = 35 (T = 0,008% sec.) 
(le régime s’est accru). 
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Chacun de ces sons peut être obtenu par les instructions Basic abordées 
dans le chapitre 1. Nous ne reviendrons plus sur le bruit des vagues mais 
pour la lame vibrante : 


16 ? = ce 1e me me on en ee me ne ve ce me mr mme men me on = = dm © ne men ms cu ee 
119 - PROGRAMME 39 

129 7 LAME VIBRANTE 

LTD ire iii. UNIT 


149 ENV 1,12,-1,5 
159 SOUND 1,142,65,12,1 
169 END 


s 


et pour le moteur à explosion : 


199 A ee deu he Lo. ne Le 0 en den GS our 0 98 Te es me de mn né ne 
119 ” PROGRAMME 31 

129 MOTEUR À EXPLOSION 

159 L — 7 0 0 mn ee en ès ce me sie we we nes es es me ee ne ee ce ee == 0 .e ou + = 
149 FOR I=1 TO 599 

159 ENV 1,2,-5,1 

169 SOUND 1,1924,2,15,1 

178 NEXT I 

189 END 


PROGRAMMER LE PSG À PARTIR DU BASIC 


Les instructions Basic liées au son sont très puissantes et offrent des 
possibilités de développement plus importantes que la programmation 
directe ou indirecte du PSG, ne serait-ce qu’au niveau de l’enveloppe 
tonale. Les illustrations ci-après vous le montreront, mais il n’est pas inutile 
de prendre conscience des autres manières de faire agir telle partie de la 


machine. 


Soit à recréer le bruit de la lame vibrante. Adaptons le programme 
précédent en remplaçant l’introduction des données au clavier par une 


introduction 


188 
119 
129 
139 
149 
159 
169 
179 


159 


programmée. 


REM "nm mr mm te 
REM PROGRAMME 32 

REM PROGRAMMATION DU PSG 
RER msn 
REM 

REM initialisation 

REM Sessssss=z=zzz= 

MM=HIMEM 

MMAX=MM-19 
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199 MEMORY MMAX 

29Q REG=MMAX+2Z : VA=MMAX+4 

219 FOR I=1 TO 8 

229 READ A 

239 POKE MMAX+I,VAL("&"+A5) 

249 NEXT I 

254 DATA 3E,09,9E,09,CD,34,BD,C9 

264 REM 

279 REM prog. principal 

2839 REM essessssszzszszz 

299 POKE REG, @:POKE VA,142:CALL MMAX+1 
399 POKE REG, 7:POKE VA, 62:CALL MMAX+1 
319 POKE REG, 8:POKE VA, 16:CALL MMAX+1 
329 POKE REG,12:POKE VA, 19:CALL MMAX+1 
339 POKE REG,13:POKE VA, 1:CALL MMAX+1 
349 CLS 

359 LOCATE 6,5 

3569 PRINT"DESIREZ-VOUS REENTENDRE LE SON ?”" 
379 LOCATE 6,8 

389 PRINT” <9?> <N>" 

399 RS=INKEYS:IF R$="" THEN GOTO 379 
499 IF R$="N" THEN END 

419 IF R$#="CO" THEN GOTO 539 

429 SGTO 3596 


L'utilisation de listes de valeurs est une solution mieux adaptée. Une 
variable supplémentaire devra être introduite, le nombre de registres à 
charger. 


Analyse du programme 


Fixer les adresses du numéro de registre (REG) et de la valeu 
qui y correspond (VA) 











180 


Charger la sous-routine en langage machine 190-230 
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Fixer le nombre de registres à modifier 300 
Décrire sous forme d’une liste le son à émettre 

> ; 310 
(numéro du registre, valeur) 
Appeler la procédure MISE EN MEMOIRE 320 
Fin de programme 330 
Afficher « Désirez-vous réentendre le son ? » 370-400 
Répéter 

Attendre l’appui d’une touche du clavier 410 

Remettre pointeur de don- 

nées sur la liste décrivant le 

son 

Appeler procédure 

MISE EN MEMOIRE 
Jusqu'à ce que la réponse soit N 430 


440 
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Procédure MISE EN MEMOIRE 450 
EE 
Répéter pour le nombre de registres indiqué 480 
Lire les valeurs : numéro du registre, contenu 490 
Mettre ces valeurs à l’emplacement mémoire correspon- 500-520 
dant 
530 
540 





Fin de procédure 


QD ? mm — — 
119% PROGRAMME 33 

129 ? PROGRAMMATION DU PSG 
13@ ? PAR "DATA" 

149 ’? © ns de pe aioit En EL CN Re en 1e 10e 2e 0 20 eu me C0 00 de me Se à 0 
15@ ? 

169 ? initialisation 

179--4 SESSSESSSS=SSSZ=Z= 


189 MM=HIMEM 
199 MMAX=MM-19 

299 MEMORY MMAX 

219 REG=MMAX+2 : VA=MMAX+4 

229 FOR I=1 TO 8 

239 READ AS 

249 POKE MMAX+I,VAL("&"+A5) 
259 NEXT I 

269 DATA 3E,99,9E,90,CD,34,BD,C9 


279 ? 

289 Parametres du son. 
PET ER NT me Dent ape vor 
399 NR=S 


319 DATA 9,142,7,62,8,16,12,19,13,1 

329 GOSUB 459 

339 ? 

349 ? Fin de programme 

JHD- fée ere mener 

369 CLS 

379 LOCATE 6,5 

389 PRINT"'DESIREZ-VOUS REENTENDRE LE SON ?" 
3979 LOCATE 6,8 


499 
419 
429 
459 
449 
459 
46€ 
479 
459 
479 
5969 
519 
529 
559 
544 


Illustration 
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PRINT" <9> <N>" 

RF=INKEYS: IF R$="" THEN GOTC 419 

IF R#="0" THEN RESTORE 319 : GOSUB 459 
IF RF<}"N" THEN GOTO 419 

END 


FOR I=1 TO NR 
READ A,E 
POKE REG, A 
POKE VA,B 
CALL MMAX+1 

NEXT I 

RETURN 


Voici un exemple d’utilisation du Basic pour programmer un effet sonore 


à partir des 


registres du PSG. Le son est celui d’une bombe dont le 


sifflement lors de la chute est suivi par l’explosion à laquelle succède une 
longue modulation. 


199 
119 
129 
159 
149 
159 
166 
176 
129 
199 
299 
219 
2249 
239 
249 
259 
269 
279 
236 
2979 


: BOMBE 


MM=HIMENM 
MMAX=MM- 19 
MEMORY MMAX 
REG=MMAX+2 : 
FOR Isl T0 8 
READ AS 
POKE MMAX+1,VAL("&"+A%) 
NEXT I 
DATA 3E,99,9E,99,CD,34,BD,C9 


VA=MMAX +4 


à Farametres du son. 


? MISE A ZERO DES REGISTRES 
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319 
32@ 
359 
346 
359 
369 
37@ 
389 
396 
499 
419 
429 
439 
449 
454 
469 
47e 
489 
496 
509 
519 
529 
559 
549 
559 
564 
579 
589 
579 
699 
616 
629 
6354 
649 
659 
669 
67@ 
689 
679 
749 
716 
729 
739 
749 
759 
7698 


GOSUB 969 

* CHUTE DE LA BOMBE 
NR=S 

DATA 7,62,8,15,9,16 
GOSUB 779 


:19,16,12;16 


B1=48:B2=179:B3=1:GOSUB 879 
N=S 

DATA 8,9,9,9,6,15,7,7,:12,16 
GOSUB 779 

* EFFET D’EXPLOSION 

NR=4 

DATA 8,16,9,16,19,16,13,9 
GOSUB 779 

FOR T=1 TO 369 : NEXT T 
NR=4 

DATA 1,1,7,46,8,15,9,9 


GOSUB 779 


L 


B1=89:B2=33:B3=-1:GOSUB 879 


, 


FOR T=1 TO 299 : NEXT T 
B1=55:B2Z=-40:B3=-1: GOSUB 379 


B1=49:B2=199:B3=1: GOSUB 879 


: 


NR=2 
DATA 8,9,9,9 
GOSUB 779 


? 


? Fin de programme 


? 


CLS 

LOCATE 6,5 
PRINT"DESIREZ-VOUS 
LOCATE 6,8 

PRINT" <9?> 
RS=INKEYS:IF R#S="" 
IF R$="0" THEN REST 
IF RS<>"N" THEN GOT 
END 


REENTENDRE LE SON ?° 


<N2>” 
THEN GOTO 739 
ORE 359 :GOTO 319 
6 739 
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779 ? ===========s==s============== 
78€ ? Frocedure MISE EN MEMOIRE 
7PQ ? ============================= 
S99 FOR I=1i TO NR 

319 READ A,B 

629 POKE REG, A 

539 POKE VA,B 

549 CALL MMAX+1 

354 NEXT 1 

869 RETURN 

279 ? =======s=s=s=========s=========== 
884 ? Procedure REFETE 

399 ? ==========s================== 
969 FOR I=B1 TO B2 STEP BS 

210 POKE REG, 

7-9 POKE VA, I 

9349 CALL MMAX+1 


F4 NEXT I 

959 RETURN 

PAT ? =============S=SSSSEE============ 
97@ ? Procedure MISE A @ DES REGISTRES 
OSQ ? ================================ 
990 FOR 1=9 TO 13 

1999 POKE REG,I:PFOKE VA,@: CALL MMAX+1 
191@ MNEXT I 

1929 RETURN 


L'interprétation 
musicale 


NOTIONS DE DÉPART 


Signes fondamentaux 


Votre ordinateur doit interpréter la suite de notes ci-après : 














Pour ceux d’entre vous qui ne possèdent qu’une vague information 
musicale, la figure ci-dessus comporte des signes qui paraissent incompré- 
hensibles. La base sur laquelle s’accrochent les signes musicaux porte le 
nom de portée. Elle se compose de cinq lignes parallèles servant de repère 
visuel. 


Le nom des notes sur la portée est déterminé au moyen d’un signe 
dessiné au début de la portée : la clé. Deux clés sont utilisées couramment : 


— La clé de SOL 


EE jydé de FA 


Nous avons ajouté la note correspondante à la clé sur chacune des 
portées. C’est ainsi que pour la clé de SOL, la note écrite sur la deuxième 
ligne portera le nom de SOL et que pour la clé de FA, c’est la note se 
trouvant sur la 4° ligne de la portée qui se verra attribuer le nom FA. 
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Les notes sont disposées alternativement sur les lignes de la portée et 
entre celles-ci. Sept mots ainsi que les sept premières lettres de l’alphabet 
expriment le nom des notes : 





La lettre À a été attribuée au LA. C’est cette note qui définit la 
fréquence fondamentale par rapport à laquelle les autres sons seront émis. 
Pour rappel, c’est par convention le « LA » du milieu du piano, à 440 cycles 
par seconde. 


Les sons pouvant être émis dépassent de très loin les seules sept notes 
proposées. On peut continuer à écrire sur les portées, tant vers le haut que 
vers le bas. Dans ce dernier cas, on redessine une nouvelle portée munie 
cette fois de la clé de FA, ce qui permet une plus grande variété de sons 
écrits. 





CDEFGABICDEFG ABIC 
Octave 0 Octave+1 +2 


ÊDE FGABICDE FGAB] 
Octave —2 lOctave-1 


La distance séparant deux « do » successifs porte le nom d’octave. Votre 
ordinateur peut interpréter les notes sur 8 octaves. L’octave marquée 0 est 
celle où figure le LA fondamental, les autres octaves portent soit les 
numéros 1, 2,3 ou — 1, — 2, — 3, — 4. A la mise en route de l’ordinateur, 
l’octave utilisée est celle portant le n° 0. 


Génération du son 


La génération d’un son n’est pas immédiate, votre machine ne dispose, ni 
d’un clavier musical, ni d’un langage permettant le jeu des sons en 
introduisant le nom ou le symbole des notes. Vous disposez cependant de 
l'instruction (comme nous l’avons vu précédemment) : 


SOUND 2, b, c, d,e, f, g 
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a désigne le canal par où le son sera émis. Au long de cette partie, nous 
n’utiliserons qu’un seul canal (le A) et nous le désignerons en donnant 
à A la valeur 1. 


b correspond à la période du ton et la valeur qui lui est attribuée peut 
varier de 0 à 4095. C’est cette valeur qui déterminera la hauteur du 
son. Il existe une relation étroite entre la position de la note sur la 
portée et la période. En effet : 


PERIODE = 62500 
440 * (2 T (Octave + ((N — 10) / 12))) 


Deux éléments sont donc nécessaires à l’émission d’une note précise : 
l’octave (en fait, le numéro de l’octave) 


N : le numéro de la note. 


Vous n’êtes pas encore en mesure de fixer cette dernière valeur. Pour y 
arriver, regardez la figure suivante : 


ET ni VE 77 sox PA 1a V7 
PAMENTNA TENUE" 


des notes 
Clavier de 
Gamme de do 


type piano 





Entre deux «do» successifs, existent 12 «touches » et par là 12 notes. 
Chacune est séparée de la précédente par une même hauteur de ton; un 
demi-ton ou environ 25 savarts (unité de différence de la hauteur de son). 
Pour indiquer qu’il s’agit des «touches noires » du clavier du piano, deux 
signes sont utilisés. Soit le # (le dièse) qui indique que la note sera haussée 
d’un demi-ton, soit le b (le bémol) qui précise que la note sera abaissée d’un 
demi-ton. Ces deux signes portent le nom d’altérations. Si l’on appuie sur la 
première touche noire à gauche du clavier représenté ci-dessus, le son émis 


sera : 


Soit Do dièse 


= 
Soit &— Ré bémol 


ce qui pour un piano correspondrait à l'émission d’un même son. 
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Si nous revenons à la formule exprimant la valeur de la période pour le 
LA de base : l’octave vaut 0 et n prend la valeur 10. 


62500 62500 
PERIODE à 1204 
440 x (2 ? (0 + (10 — 10) / 12))) 440 


comme on ne peut écrire qu’une valeur entière, 142 sera celle attribuée à la 
période pour émettre un son correspondant au LA fondamental. Nous 
avons déjà trouvé cette valeur dans le chapitre 1. Pour l’obtenir, tapez : 


SOUND 1, 142, 200 


c nous avons utilisé cette variable dans l'instruction ci-dessus. Elle 
précise la durée d’émission du son, durée exprimée en centièmes de 


seconde : 200 correspond ainsi à une durée de 
200 X 0,01 sec. = 2 sec. 


En musique, comme dans le langage parlé, les sons ne possèdent pas tous 
la même durée et là aussi une convention d’écriture permet de s’y 
retrouver. Le tableau ci-dessous met en relation les divers modes 
Expression 


d’expression : 
as triple |quadruple 


Code de 
programmation 























Revenons à notre objectif de départ : l'interprétation de la gamme de 
«do ». Si sur le plan théorique, vous disposez de toutes les informations, il 
est encore nécessaire de prévoir un programme qui nous facilitera la tâche 
tout au long de cet ouvrage. 


Le tempo sera une valeur déterminée par le nombre de «noires » pouvant 
être interprétées en 1 minute. Souvent, en haut d’une partition, vous 
trouverez l'indication « = 120» signalant que 120 noires seront 
interprétées en 1 minute. Un rapide calcul détermine que la durée d’une 
noire est de 50 centièmes de seconde. La valeur de tempo dans ce cas est de 
50 x 4 soit 200. 
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Analyse générale du programme 


Initialisation 100 
Description chaîne musicale 400 


Traduction 500 
des notes 1000 
de la durée 2000 
mémorisation des paramètres 5000 


Interprétation 700 


740 





Analyse détaillée du programme 


Le programme est composé de quatre parties : 


O L’initialisation : comporte toutes les informations dont aura besoin le 
programme pour fonctionner. C’est l’ensemble des autres parties qui 
permettra d’en déterminer le contenu. 


Initialisation 100 





Dimensionner la table des variables pour l’instruction SOUNDI! 120 
(V(a.b)) 


Mettre à 0 
le compteur de signes musicaux (NN) 130 
le numéro de l’octave (OC) 140 


Fixer le tempo (nombre de noires par minute) (tempo) 150 


Initialiser le compteur de caractères de la chaîne décrivant la] 160 
partition. 
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D La description de la chaîne musicale : c’est la première tâche que vous 
aurez à effectuer. Nous établirons quelques conventions d'écriture. Chaque 
signe musical sera décrit par son code et sa durée. S’il y a un changement 
d’octave, le signe « < » est indiqué avant le code de la note pour préciser le 
passage à l’octave supérieure et le signe «>» pour le passage à l’octave 
inférieure. La fin de la mélodie sera indiquée par un point d’exclamation. 
Le nom donné à la chaîne sera V1$, V2$ ou V3$ selon la voix qui 
interprétera la mélodie. 

Dans le cas de notre projet, une seule voix : 

V1$ = «C4 D4 E4 F4 G4 A4 B4 < C4!» 


O La traduction : nous venons de passer de l’expression sous forme 
d’une chaîne alphanumérique aux valeurs utilisées par l'instruction 
SOUND. Pour chaque signe, nous avons actuellement besoin de deux 
valeurs : la période et la durée. Nous établirons une table qui sera lue lors 
de l'interprétation. 


Répéter 


Lire un caractère de la chaîne décrivant la partition (X$)| 510 


515 


Est-ce «< » ? 





Passer à l’octave supérieure (OC) 


Incrémenter le compteur de caractères de la 


chaîne (1) 





929 


Passer à l’octave inférieure (OC) 


Incrémenter le compteur de caractères de 1 
chaîne (I) 







Utiliser la procédure 
LECTURE NOTE donne NU 530 
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Utiliser la procédure 
LECTURE DUREE donne D 540 


Utiliser la procédure 
MEMORISATION PARAMETRES donne! 550 
V(L,NN) V(2,NN) 






Jusqu’à la rencontre de «!» 560 


Procédure LECTURE NOTE 
Lire un caractère de la chaîne décrivant la partition (X$) 







1000 
1010 


1020-1080 


Traduire la lettre code note en un numéro de note (NU) 
Incrémenter le compteur de caractères de la chaîne 


Fin de procédure 








1090 


1100 


Procédure LECTURE DUREE 2000 


Mettre à vide la chaîne de travail (X$) He 


Répéter 


Lire un caractère de la chaîne décrivant la partition (X$)| 2030 


Oui 


L’ajouter à la chaîne de travail 


à A 


Incrémenter le compteur de caractères de la chaîne 
Jusqu'à ce que le caractère lu ne soit plus un chiffre 


Fixer la valeur de la durée (transformer la chaîne de travail en! 2050 
une valeur ID 


Fin de procédure 2060 
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Procédure MEMORISATION PARAMETRES 5000 


Incrémenter le compteur de signes musicaux (NN) 2010 


Mettre dans la table la valeur de la période après l’avoir] 5020 
calculée (V(1,NN)) 


Mettre dans la table la valeur de la durée après l’avoir calculée] 5030 
Fin de procédure 5040 


O0 L’interprétation : 


Interprétation 700 


710 





Répéter pour chaque signe musical 


730 


740 





Remarque : les numéros indiqués au côté du structurogramme correspon- 


dent aux numéros des lignes du programme. 


Le programme étant complété au fur et à mesure du développement de cet 


ouvrage, ne modifiez pas la numérotation proposée. 
Liste des variables 


NN numéro du signe musical. 
OC numéro de l’octave. 
TEMPO valeur du tempo (nombre de noires par seconde). 


V1$ chaîne musicale pour la voix 1 (canal A). 
V(a,b) descriptif d’un signe musical. 
a=1 — V(1,b) — période de la note. 
a=2 — V(2,b) — durée de la note. 
b = NN — V(1,30) — période de la 30° note. 
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D durée de la note. 
I variable compteur de boucles. 
X$,X1$ variable de travail 
X$ — 1 caractère de la chaîne décrivant la partition. 


X1$ — expression sous forme d’une chaîne alphanumérique de 
la durée d’une note. 


19 ? HHHHHRHHHHHHHHHHHHHHHHHHHHHH 


13 | PROGRAMME 35 

24 ? Gamme 

25 ? HHHHHHHHHHHHHHHHHHHHHHHHHHHEH 
199 REM -----------———— 
195 REM Initialisation 

119 REM --------. 


129 DIm V(2,8) 

139 NN=9 : REM no ler signe musical 
149 OQC=9: REM octave de depart 

159 TEMPO=192 : REM noire 122 


168 I=1 : REM premier caract de la chaine 
290 REM on em nee one on dun tem me ent ei nee one mme eee ee me 0e mn ee me ce muse me en 
285 REM Chaine musicale 

249 REM — = ee me de es me ce me en mme © ee me ne nee me eue em me + en ee 
218 V1#5="C4D4E4F4G4A4B4<C4!" 

009 REM ne ee ee 
595 FEM Traduction 

599 REM ==" use mme 
519 XS=MIDS(V1H,1,1) 

524 IF Xg="!" THEN GOTO 589 

534 IF X="<" THEN OC=0OC+1:1=1+1 
549 IF X#=")>" THEN OC=0C-1:1=1#1 
9559 GOSUB 1999 : REM lecture note 
569 GOSUB 2909 : REM lecture duree 
579 GOSUE 5999 : REM memorisation parametres 
989 IF X#<>"1" THEN GOTO 519 

PT = 
795 REM Interpretation 

769 RENM A ue One nee es nn nn cn un. à +5 she eu ns ve ce eu 0 ee ne On nimes me ne ee on 
719 FOR I=1 TO NN 

724 SOUND-1,Vt4,-T),V (2. +) 

P739 NEXT I 

74€ END 

1G9F REM =========================== 
1995 REM FROC. LECTURE NOTE 

1999 REM =========================== 


1919 XS=MIDS(VIS,I,1) 
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1929 IF XH="C" THEN NU=1 
1939 IF X$="D" THEN NU=3 
1949 IF XH="E" THEN NU=S 
195G IF XH="F" THEN NU=é6é 
1969 IF X$="G" THEN NU=S 
1979 IF X#="A" THEN NU=19 
1989 IF X+="B" THEN NU=12 
199@ I=1+1 

1199 RETURN 


20909 REM ==========================—- 

2995 REM PROC. LECTURE DUREE 

2919 REM =========================== 

2928 X1%="" 

2939 KX=MID#(VI1#,1I,1) 

2949 IF ASC(XS)<=57 AND ASC(XF))>=48 THEN X1#=XI1 


F+XHB:I=1+1:GOTO 2939 

2958 D=VAL(X1#) 

2969 RETURN 

5999 REM ========2==2============ 
5695 REM PROC. PFARAMETRES 

59997 REM =========================== 
5919 NN=NN+1 

5929 V1, NN) =ROUND (62569 / (4489X (2° (OC+(NU-19)/12))) 
) 

5939 V(2,NN)=TEMPO/D 

5949 RETURN 


Tapez « RUN » suivi de RETURN et la gamme sera interprétée. 


Première mélodie 
Voici la partition d’une mélodie populaire très connue : 


Partition 1 — Meunier 


ER 
Pas — 


De nouveaux signes font leur apparition sur la portée. 
























































Oo Succédant à la clé, vous trouvez la fraction 3/4 qui indique la mesure à 
respecter lors de l'interprétation de la mélodie. Elle représente le nombre 
d'unités de temps comprises entre deux barres de mesure — ce sont les 
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traits verticaux inscrits sur les portées — le numérateur précise cette durée 
(ici mesure en 3 temps). Le dénominateur indique l’unité de temps (ici la 
valeur 4 signifie qu’il s’agit de la noire). 

Nous matérialiserons l’existence de la «barre de mesure » par un espace 
blanc dans la chaîne traductrice. Cela n’a rien à voir avec le jeu mélodique, 
mais permettra de corriger plus aisément une traduction de partition, les 
mesures étant plus facilement repérables. Une ligne de programme devra 
être insérée dans le programme original : 


5221F X$ = " "THENI = I + 1 : GOTO 580 


qui permet de poursuivre l’exécution du programme lors de la rencontre de 
ce blanc. 


O Le dernier signe — les deux barres verticales — signalent la fin de la 
mélodie. Sans le savoir, vous l’avez traduite par “!” dès le programme 
précédent. 


» 


O L’avant-dernier signe — le “ Ÿ ” — correspond à un moment de silence 
dans le déroulement du jeu mélodique. Comme pour la durée des notes, il 
existe une table des durées de ces silences. 


Expression Ÿ 
musicale 
PARC 1/2 pause 1/2 soupir |1/4 soupir |1/8 soupir |1/16 soupir 


Code de 
program- 2 
mation 


Tempo/2 | Tempo/4 | Tempo/8 |Tempo/16 | Tempo/32 | Tempo/64 





Remarque : le signe Ÿ est utilisé dans les partitions manuscrites tandis que 
L est le signe imprimé correspondant. 


Nous traduirons ces données par la lettre R suivie du code de durée. Par 


exemple, dans la partition à interpréter, nous écrirons : “R4”. 


Au niveau du programme, la rencontre de R devra signaler à l'ordinateur 
que le volume du son doit être mis à 0 (c’est le meilleur moyen de ne rien 
entendre !). Un troisième paramètre doit donc intervenir dans le tableau- 
base de l'interprétation. 


Il vous faut modifier la ligne 120 en dimensionnant une table de 3 
variables pour 50 notes (valeur arbitraire que vous pouvez modifier et 
adapter à chaque mélodie) : 


120 DIM V (3,50) 
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Ajoutez une ligne précisant le volume initial : 
170 VO = 12 : Rem volume initial 


Ajoutez une ligne tenant compte de la rencontre du signe R dans la 
mélodie : 


542 IF X$ = “R” THEN VO = 0:1 =1+1: GOTO 560 


Modifiez la mémorisation des signes musicaux en ajoutant la ligne : 
5032 V (3,NN) = VO : VO = 12 


(il ne faut pas oublier de rétablir le volume après un silence, c’est ce que 
réalise VO = 12). 


Et finalement, tenir compte de ces informations lors de l’interprétation 
en complétant la ligne 720 : 


720 SOUND 1,V (LI), VC), V(G,1) 


Il vous reste à introduire la «chaîne musicale » et à faire «tourner» le 
programme pour vérifier la justesse de votre activité : 


410 VI$ — “C4 F2A4 F2E8F8 G2F8G8 A4F4C4 F2A4 F2E8F8 
G4A4G4 C2R4 !” 


19 ? HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHEHR 


SD Red PROGRAMME 36 

24 ? Meunier 

25 ? HRHHHHHHHHHHHHHHRHHHHHHHHHHHHHHEH 
199 REM- === SRE ee ee me nee 
195 REM Initisalisation 

LD RENE er ee see pere 


129 DIM V(3,5@) 

13539 NN=S : REM no ler signe musical 

149 QC =9: REM octave de depart 

159 TEMPO=192 : REM noire 122 

169 I=1 : REM premier caract de la chaine 
17@ VO=12 : REM volume initial 

GOY:REM = Re SR SR en 

495 REM Chaine musicale 

499 REM EE ee ee FR 

419 V1F&="C4 F2A4 F2ESF8 G2F8G8 A4F4C4 F2A4 F2ES8F8 
G444G4 F2R4!" 

DOG IREM SSSR SE 

595 REM Traduction 

DOPEREM SRE TPS SE SRE 

51G KS=MIDS(V1H,1,1) 
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9529 IF X$="!" THEN GOTO 589 

522 IF X$6=" " THEN I=1+1:GOT0 589 

9539 IF XH="<" THEN 9C=0C+1:1=1+1 

549 IF X#="}" THEN OC=0C-1:1=1+1 

9542 IF XH="R" THEN VO=9:1=1+1: GOTO 569 

9939 GOSUB 1909 : REM lecture note 

569 GOSUE 2099 : REM lecture duree 

579 GOSUB 5999 : REM memorisation parametres 
589 IF X#<)>"!" THEN GOTO 519 
AOD RENE 

795 REM Interpretation 

709 REM == Dante CTP SRE CU © 2) 

719 FOR I=1 TO NN 

724 SOUND 1,V(1, I),V(2, I),V(5S,1) 

?739 NEXT I 

749 END 

19009 REM ======2===s====s==22Ssss2=== 

1995 REM PROC. LECTURE NOTE 

1999 REM ==z=s=zssss=ssssesss=sez=sszzs 


1919 XF=MIDF(VI1HF,1,1) 
1929 IF X#="C" THEN NU=1 
1856 IF X$="D" THEN NU=3 
1949 IF XS="E" THEN NU=S 
1959 IF XF="F" THEN NU=é6 
1969 IF XF="G" THEN NU=S8 
1979 IF XF="A" THEN NU=19 
1959 IF X#="B" THEN NU=12 
1999 I=1+1 

1199 RETURN 


2ODD RE ee = 
2995 REM PROC. LECTURE DUREE 

2919 REM ========ss=======2===s=s=z=22zsz 

2929 K1F5="" 

2939 KB=MID#(V15,1,1) 

2949 IF ASC(X#)<=57 AND ASC(X$)2=48 THEN X1#=X1 


F+XH:1I=1+1:GOTO 2939 

2959 D=VAL(X1#) 

2969 RETURN 

5099 REM ==========z=====2============ 
5995 REM PROC. PARAMETRES 

SO099 REM ===============sss2s=====z==z= 
9919 NN=NN+1I 

5924 V(1,NN)=ROUND(6259@/(44@K(2°(O0C +(NU-19)/12)) 
}) 

5939 V{2,NN)=TEMPO/D 

5932 V(S,NN)=VO:VO=12 

5949 RETURN 
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LIAISON ENTRE DEUX SONS SUCCESSIFS 


Partition 2 — La Vigne au vin 











Traduction - interprétation 


Vous connaissez toutes les composantes permettant de traduire cette 
partition sous la forme d’une chaîne alphanumérique : 


V1$ = “<C4C8C8 D4D8D16E16 F8F8F8ES D4C8C8 
>A8<C8>G8<C8>F8F8F8F16G16 A8A8<C8> AS 
G8G8F8F16G16 A8A8 C8<A8>G4FS8RS!” 


Si vous faites interpréter la mélodie, vous constaterez que deux mêmes 
sons successifs ne se détachent pas l’un de l’autre. Si nous prenons la 
première mesure, nous devrions entendre trois fois le même son — le “do” 
— bien détaché et nous n’en percevons qu’un seul. Cela provient du fait 
que le son émis par l’ordinateur occupe toute la durée. Le schéma 
ci-dessous vous fera mieux comprendre le mécanisme. 


Enveloppe volume du son 


Volume 


D — — 











N 





10 20 30 40 50 60 70 80 90 100 
Durée en 1/100 de seconde 
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A l'instruction SOUND le “do” est émis avec un volume de 12 et ce, 
pendant 0,5 seconde, lui succède le même son pendant 0,25 seconde et une 
fois encore pendant le quart de seconde suivant. S’il y a variation dans le 
volume, elle n’est pas perceptible à notre oreille. Bien détacher deux 
mêmes sons successifs demande donc de diminuer le volume du premier son 
avant de générer le second. Un schéma de la forme suivante serait indiqué : 


VA 





10 20 30 40 50 60 70 80 90 100 Durée 


Le son partant d’un volume 0 s’amplifie pour atteindre 12, se continue un 
certain temps au même volume, ensuite décroît jusqu’à 0 et reste à ce 
volume un court instant. Le tracé de cette variation de volume visualise 
l'enveloppe du son sous son aspect volume (intensité sonore). 


Nous avons rencontré et analysé l'instruction : 


ENV n°, al, bl, ci, .…, a5, bS, cS 


au cours de la première partie de cet ouvrage. 


Pour rappel, il est possible de décomposer la variation du volume d’un 
son (enveloppe volume du son) en cinq parties, chacune étant décrite par 
trois paramètres. 


Dans le cas qui nous préoccupe : 


V 


12 





l 5 10 15 20 25 30 35 40 45 50 Durée 
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la variation de volume peut être décomposée en quatre parties : 


O une montée rapide du son jusqu’au volume demandé, le son passe de 0 à 
12 pendant 1 pas d’une durée de 0,01 seconde. La valeur de chaque 


paramètre est : 





Nombre Variation Nombre de 
de pas du volume 1/100 sec. 


O une émission du son à volume maximum constant. Nous prendrons 80 % 
de la durée totale de son devant être émis. Le nombre de pas sera 
fonction de la durée de la note émise et comme celle-ci est fonction de la 
valeur de TEMPO, nous obtiendrons le nombre de pas à l’aide de 
l'expression : 


a2 = ROUND (0,8 * TEMPO / D) 


où 0,8 limite à 80 % du temps normal l’émission du son. 


TEMPO fixe le «rythme » de la mélodie et est indiqué dans la partie 
initialisation du programme (normalement 192). 


D est lu par le programme dans la chaîne alphanumérique décrivant la 
partition. 


Les trois paramètres de cette partie de l’enveloppe sont : 


a2, 0, 1 


pas de variation l'unité de temps est 
de volume du son 0,01 seconde 


Un rapide calcul montre que pour une noire, les valeurs sont : 
38, 0, 1 


O une diminution rapide du volume. Ce sont les mêmes valeurs que pour la 
première partie, si ce n’est l’apparition du signe «-» indiquant une 
variation décroissante du son : 


1,512; 41 
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O un repos jusqu’à la fin de l’interprétation normale de la note. Le premier 
paramètre devra être calculé, car il est fonction de la durée totale du son 
et de la valeur de a2 : 


a4 = TEMPO / D — (a2 + 2) 


Dans le cas d’une noire : 
a4 = 48 — (38 + 2) = 8 


Les trois paramètres seront : 


L’enveloppe volume sera donc différente selon la durée de la note à 
interpréter. Nous n’envisagerons que cinq durées de note possibles : 


— la ronde, la blanche, la noire, la croche, la double croche. 


Le tableau ci-après définit les 5 enveloppes volumes qui nous seront 
peut-être nécessaires. 


a2 = ROUND(0,8* TEMPO) 

a4 = TEMPO-—(a2+2) ENV 1,1,12,1,a2/2,0,1,2,—12,1,a4,0,1 
(/2 car on ne peut dépasser la valeur 

127, la durée d’un pas sera alors 

double) 


Blanche a2 = ROUND(0,8*TEMPO/2) 
a4 = TEMPO/2-(a2—2) ENV 2,1,12,a2,0,1,1,—-12,1,a4,0,1 


a2 = ROUND(0,8*TEMPO/4) 
a4 = TEMPO/4—(a2-—2) ENV 4,1,12,1,a2,0,1,1,—12,1,a4,0,1 


Croche a2 = ROUND(0,8*TEMPO/8) 
a4 = TEMPO/8-(a2-—2) ENV 8,1,12,1,a2,0,1,1,—-12,1,a4,0,1 


a2 = ROUND(0,8*TEMPO/16) 
a4 = TEMPO/16—-(a2—2) ENV 15,1,12,1,a2,0,1,1,—12,1,a4,0,1 





Intégration au niveau du programme 


Introduisons la définition des enveloppes volumes au sein du programme 
de la ligne 180 à 225. 
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Une modification est à apporter au niveau de la mémorisation des 
paramètres : 


5032 IF D < 15 THEN V(3,NN) = D ELSE V(3,NN) = 15 


Finalement, il ne nous reste plus qu’à adapter la ligne 720 : 
720 SOUND 1, V (1,1), 0, 0, V (3,D) 


Canal A ob / ne 


Période Volume 
Introduisez ces modifications et écoutez. 


Problème, il y a répétition de la dernière note, ce qui est tout à fait normal 
puisque le volume ne peut être mis à zéro. Une première solution s’offre à 
nous : ne pas mettre le R4 à la fin de la chaîne alphanumérique. Dans ce 
cas, la traduction sous forme de chaîne n’est pas l’image de la partition. 
Une autre solution serait de définir des enveloppes de silences. Notre 
programme se compliquera d’autant. Il reste une autre solution que nous 
allons aborder maintenant. 


19 ? HHHHHHHHHHHHHHHHHHHHRHHHHHHHHHEH 


15 ”? PROGRAMME 57 

29 La vigne au vin 

25 ? HHRHHHHHHHHHHHHHHHHHHHHHHHHHHHE 
19 REM = = mme es on sine © eos Se me ms ee ee en == = dm se qe 
195 REM Initialisation 

119 REM ----------—e--— ———- 


12@ DIM V(3,59) 

139 NN=G : REM no ler signe musical 

148 OC =9: REM octave de depart 

159 TEMPO=192 : REM noire 122 

169 I=1 : REM premier caract de 1a chaine 
179 VO=12 : REM volume initial 

159 AZ=ROUND (9.SXxTEMPO) : A4=TEMPO-(AZ+2) 

LOS ENV:1,1.,12,1,A2/2,9,1,2,-12,1,44,9,1 

19 A2=ROUND (9G.8XxTEMPO/2):A4=TEMPO/2-(A2+2) 
19S ENV 2,1,12,1,02,9,1,1,-12,1,44,9,1 

299 AZ=ROUND (@.8XxTEMPO/4):A4=TEMPO/4-(A2+2) 
205 ENV-4,1,12,1,A2,9,1,1,-12,1.44,9,1 

218 AZ=ROUND (9.8XxTEMPO/8) : A4=TEMPO/S - (AZ2+2) 
215 ENV 8,1,12,1,42,9,1,1,-12,;1,A44,9,1 

228 A2=ROUND(G.8XTEMPO/16):A4=TEMPO/16-(A2+2) 
225 ENV _15,1,12,1,42,9,1,1,-12,1,A4,9,1 

GOT RENE SRER 

495 REM Chaine musicale 

AGP REM ESRSRR 

419 V1F="<C4CS8CS8 D4DS8D16E16 FS8FSFS8E8 D4C8C8 )>A8<CS8 
2G8<C8 )>FS8F8F8F16Glé ASAS<CS)>A8S GSGS3FSF16Glé ABSABK 
C8>2A8 G4FS8R8!" 
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599 REM ---------- 5m 
595 REM Traduction 

5909 REN -----———— 0 — — — — —— Re ee 
519 KB=MID#(V1F,1I,1) 

529 IF X#="!" THEN GOTO 589 

522 IF X$=" " THEN I=1+1:GOTO 5859 
539 IF X#="<" THEN OC=0QC+1:1=1+1 
549 IF X#=">" THEN OC=0C-1:1=1+1 
542 IF X#="R" THEN VO=9:1I=11+1:GOTO 569 
5959 GOSUB 1999 : REM lecture note 
569 GOSUB 2899 : REM lecture duree 
574 GOSUB 5999 : REM memorisation parametres 
589 IF X#<>"!" THEN GOTO S19 

PT mm —— = 
795 REM Interpretation 
Se 
719 FOR I=1 TO NN 

729 SOUND 1,V(1, I1),8,9,V(3,1) 

738 NEXT I 

?74@ END 

1999 REM =========================== 
1905 REM FROC. LECTURE NOTE 

1999 REM =========z================== 


1916 XS=MIDFS(VIS,I,1) 
1929 IF XS="C" THEN NU=1 
193@ IF X#="D" THEN NU=3 
1949 IF XF="E" THEN NU=5 
1959 IF X#="F" THEN NU=6 
1969 IF X#="G" THEN NU=8 
1978 IF XS="A" THEN NU=19 
1989 IF X#="B" THEN NU=12 
1999 I=I+1 

1199 RETURN 


29090 REM =========================== 

2995 REM FROC. LECTURE DUREE 

2919 REM =========================== 

2829 K1F="" 

2939 KB=MIDF(VI1S,1I,1) 

2449 IF ASC(X#)<=57 AND ASC(X#)2>=48 THEN X1F=XI1 


H+XHB:I=1+1: GOTO 2959 

2954 D=VAL(X1#) 

2969 RETURN 

SOOÛ REM =========================== 

5995 REM PROC. PARAMETRES 

5997 REM =========================== 

5919 MNN=NN+1 

5929 V(1,NN)=ROUND(62599/ (449% (2° (OC+(NU-19)/12))) 


5938 V(2,NN)=TEMPO/D 
59327 IF D<15S THEN V(3S,NN)I=D ELSE V(S,NN)=15 
5949 RETURN 
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Autre procédé 


Les deux schémas ci-dessous représentent pour le premier un son émis 
normalement dans son entièreté, et pour le second, ce que nous souhaitons 
qu'il soit : 


V V 


100 % 80 % 20 % 
t D t 


Un procédé assez facile à utiliser est de demander à la machine de 
transformer une note en la même note mais d’une durée équivalente à 80 % 
de sa durée normale et d’y ajouter un silence correspondant à 20 % de la 
durée. Cela ne devrait concerner que les notes et non les silences. 


Peu de modifications sont à apporter au programme 37. Au niveau de la 
traduction, nous prévoyons un signal (un drapeau) qui précisera à 
l'ordinateur que le signe rencontré correspond à un silence et qu’au niveau 
de la mémorisation, il ne faut pas le décomposer. La ligne 542 doit être 
complétée par la mise en valeur 1 du signal (DR) : 

542 IF X$ = “R” THEN VO=0 : DR=1 : I=I+1 : GOTO 560 


Les modifications les plus importantes se situeront au niveau de la mise 
en mémoire des paramètres où tout doit être modifié à partir de la ligne 
5030 : 


Analyse des modifications 


| l 
! 1 
Calculer les paramètres liés à la durée A,B,C 


S'agit-il d’un silence ? : 
Mémoriser la durée A Mémoriser la durée B 5050 


5030 





5040 





Mémoriser le volume Mémoriser le volume 
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Incrémenter le nombre 5060 
de signes mémorisés 


Mémoriser la période 5070 
Mémoriser la durée C 


Mémoriser le volume 0 
Fixer le volume à 12 5080 


Fin de la procédure 5090 





19 ? HHHHHHHHHHHHHHHHHHHHHHHHHHHHHEH 


15 PROGRAMME 38 

29” La vigne au vin (bis) 

27 0? HHHHHHHHHRHAHHHHHHHHHHHHHHHHHEH 
199 REM === nee mme mme 
195 REM Initislisation 

119 REM (ans 008 om mm don den on eue nee vos mn où me om © ne où 008 me me co te et = 2 = 


12@ DIm V(3,5@@) 

139 NN=9 : REM no ler signe musical 

14 QC =: REM octave de depart 

159 TEMPO=192 : REM noire 122 

16 I=1 : REM premier caract de 13 chaine 

179 VO=12 : REM volume initial 

AOC REMETEES ne semarm eme Rs 

495 REM Chaine musicale 

349 REM ee ne ne ne me on mn mue un mem ee me nes me ce me mn me me un ce ee ee en 

419 Vi1H="<C4CSCS D4DSDI16El6é FSFSFSES D4C8C8 >AS<C8 
2G3<4C3 >F8F8F8F166G16 ASAB<CS)AS GSGSF8F16616 ASAS< 
CS>A8 G4FSRS!'" 


SO REM mme 

595 REM Traduction 

OP EM ne 

519 XS=MIDS(V1HS,1,1) 

529 IF X$="!" THEN GOTO 569 

522 IF X$=" " THEN I=111:GOTO 589 

539 IF X$="<" THEN OC=0C+1:1=1+1 

549 IF X$="2}" THEN OC=0C-1:1=1+1 

542 IF X&="R" THEN VO=9:DR=1:1=11t1:GOTO 569 


559 GOSUB 199 : REM lecture note 
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569 GOSUB 2969 : REM lecture duree 

976 GOSUB 5999 : REM memorisation parametres 
9539 IF X#<>"!1" THEN GOTO S19 

FPOUREM = "- HSE PRO SSe ne mm 

745 REM Interpretation 

799 REÈM ---------- ent 


719 FOR I=1 TO NN 


729 


SOUND 1,V{1, I),V(2,1),V(S,1I) 


739 NEXT I 
748 END 


198€ 
1995 
1999 
1919 
1928 
14359 
1949 
1956 
1964 
1979 
193€ 
19979 
1199 
2999 
2995 
2919 
2929 
2936 
2949 
FIXH: 
2959 
2964 
5999 
5985 
59099 
5919 
5924 


5939 
5949 
9359 

5959 
9969 
5979 
5989 
5999 


REM =========================== 


REM =========================== 
XS=MIDS(V1S,I,1) 

IF X#="C" THEN NU=1 

IF X$="D" THEN NU=3 

IF X$="E" THEN NU=S 

IF X$="F" THEN NU=é6 

IF X#="6G" THEN NU=8 

IF X#="A" THEN NU=19 

IF X$="B" THEN NU=12 


I=I1+1 
RETURN 
REM =========================== 
REM PROC. LECTURE DUREE 
REM =========================== 
x1g="" 
KE=MIDS(V1,1,1) 
IF ASC(XHS)<=57 AND ASC(XH))=48 THEN X1F=X1 
I1=1+1:GOT0 2939 


D=VAaL(X*1#) 

RETURN 

REM =====S==2=================== 

REM PROC. PFARAMETRES 

REM =========================== 

NN=NN +1 

V(1, NN) =ROUND (62599 / (44@X (2° (OC+(NLI- 19) /12))) 


A=TEMPO/D : B=ROUND(AX9.8) : C=A-E 
IF DR=1 THEN DR=@:V(2,NN)=A:V(S,NN)=VO:GOTO 5 


V(2,NN)=B:V(35, NN) =VO 

NN=NN#+ 1 

VI1,NN)=288: V(2,NN)=C: V(S,NN)= g 
VO=12 

RETURN 


L'INTERPRÉTATION MUSICALE | 111 


COMPLÉTONS LA CONNAISSANCE DE L’ÉCRITURE 
MUSICALE 


Note pointée 


Partition 3 — Il pleut bergère 
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Un nouveau signe musical apparaît, le «. » situé derrière la note. Il porte 
le nom de point de prolongation et signale qu’il faut augmenter la durée de 
la note d’une demi-fois la durée prévue. 


C’est ainsi que d. (blanche  pointée) durera 2 + 2/2 = 3 
temps ; s: (noire pointée) durera 1 + 1/2 = 1,5 temps. Le même 
raisonnement s’applique aux silences. Une demi-pause pointée durera 
2 + 2/2 = 3 temps. 


Une note peut être pointée plusieurs fois, par exemple : 
+ durera 2 + 1 + 0,5 = 3,5 temps 
de. durera 2 + 1 + 0,5 + 0,25 = 3,75 temps. 


Nous devons adapter notre programme à ce nouveau signe. Comme le 
point de prolongation ne peut se situer que derrière le code durée, il suffira 
de vérifier sa présence derrière le code et si la réponse est affirmative, en 
tenir compte dans le calcul de la durée. 


La modification se situe au niveau de la procédure de lecture de la durée. 


Analyse de la modification 


Fixer la valeur de la durée D 


Le caractère suivant de la chaîne est-il un “.” ? 
Oui 


2050 





2060 







Calculer le nouveau code de durée 
(D + D/2)/2 
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Incrémenter le compteur de carac- 
tères lus dans la chaîne 


Fin de procédure 


Traduisez la partition sous forme d’une chaîne alphanumérique et 
écrivez-la dans le programme à la ligne 410. 










2070 





19 7? HHHHHHHHHHHHRHHHHHHHHHHHHHHHHEHHEH 


15e PROGRAMME 39 

29:= 11 pleut bergere 

ES 7 HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHEH 
199 REM -------- um 
195 RE Initialisation 

119 REM st ns Da es ess en. ee 6e dede Los mis pe sé oies on: ner sin 


12@ DIM V(S5,599) 

1359 NN=G : REM no ler signe musical 

149 QC =9: REM octave de depart 

159 TEMPO=192 : REM noire 122 

158 I=t : REM premier caract de la chaine 

179 VO=12 : REM volume initial 

ADO RENTE ETES Er re Ne Re Re ee me ee 

4@5 REM Chaine musicale 

RDPEREMEETE NE MR RES SRS 

419 V1H="ES G4E8G4E8 C4.)G4. <CS>BS8<CS8D4DS EZ2. ESD 
SESF4F8 G4,E4,. GSASGSF4ES D2. ESFSESF4F8 E4.G4, F8 
ES8D8E4C8 E4.D4ES G4E8G4ES F4.A44. GSASGS8D4ES C2.!" 


999 REM -----------—- 

595 REM Traduction 

TC LA RS LE À NS 7 RE Ce 

519 XS=MIDS(V1#,1,1) 

529 IF X="!" THEN GOTO 5859 

922 IF Xg=" " THEN 1=1+1:GOTO 589 

559 IF X$S="<" THEN OC=0C+1:1=1+1 

549 IF X="2}" THEN OC=0C-1:1=1+1 

542 IF X$="R" THEN VO=9:DR=1:1=1t+1:GOTO 569 
559 GOSUB 1990 : REM lecture note 

3569 GOSUB 2999 : REM lecture duree 

574 GOSUB 5969 : REM memorisation parametres 
586 IF XS<>"!" THEN GOTO 519 

P9Q REM ---------…—e mm — 

765 REM Interpretation 

799 REM on ne on ee ve eus ms bee tue mens me me = 2e sen en mom de ses en mù ose cn ee 


719 FOR I=1 TO NN 
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729 SOUND I,VtE. Li, V(2,11,VtS,1) 
734 NEXT I 

749 END 

1999 REM =========================== 
1995 REM FROC. LECTURE NOTE 

1999 REM =========================== 
1919 XF=MID&(VIF,I,1) 

1929 IF X%S="C*" THEN NU=I 

195Q IF XS="D" THEN NU=3 

1949 IF X$="E" THEN NU=S 

1959 IF X$="F" THEN NU=6 

1969 IF X#="G" THEN NU=8 

197@ IF X#="A" THEN NU=19 

1989 IF X$="B" THEN NU=12 

19979 I=It1 

1198 RETURN 


2999 REM =========z================== 

2995 REM PROC. LECTURE DUREE 

2018 REM =======================2=222= 

2929 K1$="" 

2938 X#=MIDF(VI1H,1I,1) 

2946 IF ASC(X#)<=57 AND ASC(XH)2>=48 THEN X1#=XI 


+XH:1=1+11: GOTO 2939 

2958 D=VAL(X1#) 

2969 IF KX$="." THEN D=(D+D/2)/2:1=1+1 

2979 RETURN 

SODQ REM =========================== 

5995 REM PROC. PARAMETRES 

5999 REM ==============2============ 

5919 NN=NN+1 

5929 V(1, NN) =ROUND (62599 / (449X (2° (OC+(NU-19)/12))) 
) 

5939 A=TEMPO/D : B=ROUND(AX9.8) : C=A-B 

5949 IF DR=1 THEN DR=9:V(Z,NN)=A:V(S,NN)=V0:GOTO 5 
339 

5959 V(2,NN)=B: VS, NN) =V0 

5969 NN=NN+1 

5979 V(1,NN)=299:V(2,NN)=C:V(3,NN)= 9 

5989 VO=12 

5994 RETURN 


Remarque : vous avez constaté que l'interprétation débute un certain temps 
après le début du programme, c’est dû au traitement et à la mise en 
mémoire des paramètres composant l'instruction SOUND. Lorsque le 
programme s’est déroulé une première fois, vous pouvez réécouter la 
mélodie immédiatement en tapant : 


GOTO 700 suivi de RETURN 
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Altérations et liaisons 


Partition 4 — La Madelon 


RAP 
8 Free nniouiiet 
7 : F — 


































































































Deux nouveaux signes apparaissent dans cette partition. 


0 Le signe de liaison de prolongation. 


él 


Ce signe peut relier deux ou plusieurs notes de même nom signalant que 
le son se prolonge sans interruption pendant une durée équivalente à la 
somme des durées des notes reliées. 





Pour signaler ce fait à l’ordinateur, vous utiliserez le signe “&” entre les 
notes reliées. Par exemple, dans le cas présent : 


V 


se traduit par G2&G4. L 


Le programme ne comporte qu’une ligne en plus : 
2065 X$ = MID$ (VIS,I,1) : 
IF X$ = “&” THEN DR = 1: 
I=I1+I 
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Il se pourrait très bien que le signe de prolongation ne relie pas deux 
notes identiques. Dans ce cas, la première sera jouée pendant 100 % du 


temps. Par exemple : 


D Le signe d’altération : le dièse #. 


se traduira par G4&EFd4. 


Nous avons déjà rencontré ces notions précédemment en mettant en 
évidence les touches noires du piano. Trois signes d’altérations existent en 
musique : 
le dièse hausse la note d’un demi-ton, vous écrirez simplement un “#” 

devant la lettre désignant la note. 


le bémol dont le signe ressemble à un b et qui baisse le son de la note d’un 
demi-ton. Vous écrirez le signe “—” devant la lettre désignant la 
note. 

le bécarre qui indique que l’exécutant doit remettre le son de la note à son 
niveau initial. Vous indiquerez uniquement la lettre désignant la 
note. 


Nous devrons tenir compte des deux premiers signes dans l’analyse de la 
chaîne traductrice de la partition en mettant en route un second drapeau 
qui prendra la valeur 1, s’il s’agit d’un dièse ; —1 s’il s’agit d’un bémol et O si 
aucune altération n’est demandée. II sera alors tenu compte de ces valeurs 
pour déterminer le numéro de la note. 

Au niveau de la partie traduction : 

544 IF X$ = “#” THEN DR2 
546 IF X$ = “—” THEN DR2 


Au niveau de la procédure de lecture des notes : 
1085 NV = NV + DR2 : DR2 = 0 

Sans oublier de fixer la valeur initiale de DR2 lors de l’initialisation : 
180 DR2 = 0 : Rem. absence d’altération. 


1:1=- 
ni ES 


1+1 
=1+1 


Il ne nous reste plus qu’à traduire cette mélodie : 


VI$ = “G8A8B8<C4>G4  E8.G16B8.A16  G2R8G8A8B8 
<C4.>B8<C8.>B16<C8.#C16  D2&D4>A8.<C16 
B8R4D8 E8.F16B8.A16 G2&GS8R8G8.E16 D4G4 
B4A4<D2 R8>G8A8B8<C4>G4/ E8.G16B8.A16 
G2  R8G8A8B8 <C4.>B8<C8.>B16<C8.#C4 
D2&D4>A8.<C16>B8R4D8  E8.F16B8.A16 
G2&G8R8G8.E16 A8R8A8.F16 
B8R8B8.G16<C2&C4!” 
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Gros problème, la chaîne comporte plus de caractères que ne peut en 
accepter l'ordinateur. Nous allons devoir adapter le programme en 
indiquant les chaînes successivement et en utilisant une chaîne de travail 
pour analyser l’information. 


Si nous attribuons aux chaînes les noms V1$(1), V1$(2), V1$(3) : 


410 V1$ = “G8A8B8<C4>G4 E8.G16B8.A16 G2R8G8A8B8 
<C4.>B8<C8.>B16<C8.#C16 D2&D4>A8.<C16 
B8R4D8  E8.F16B8.A16 G2&G8R8G8.E16 D4G4 
B4A4<D2  R8>G8A8B8<C4>G4 !” 


415 V2$ = “E8.G16B8.A16 G2 R8G8A8B8 
<C4.>B8<C8.>B16<C8.#C4 
D2&D4>A8.<C16>B8R4D8 E8.F16B8.A16 
G2&G8R8G8.E16  A8R8A8.F16 
B8R8B8.G16<C2&C4!” 


D créer une zone de transfert des chaînes 


459 REM --------mmmemmmsmmmment 

452 RENM lecture des chaines 

454 REM ----------- Eee ee ne ee ne à 

469 FOR NC=1 TO 2 

465 CTHS=V1H (NC) 

479 GOSUB 519 : REM vers traduction 
489 NEXT NC 

499 GOTO 799 : REM vers interpretation 


O compléter la partie traduction 


9599 I=1 : RETURN 


29 ? HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHE 
As Do PROGRAMME 49 

SD ? La Madelon 

35 ? HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHE 
LODAREMC EEE ER NE en mn 

195 RENM Initialisation 

119 REM en ete mien me envo mn que me 04e 6eme 6001qu 000 mne 06. Sins: ane ee: ne 00 


129 DIM V(S5,599) 

159 NN=9 : REM no ler signe musical 

149 OC=9: REM octave de depart 

159 TEMPO=192 : REM noire 122 

169 I=1 : REM premier caract de la chaine 
179 VO=12 : REM volume initial 


18 
499 
495 
499 
41€ 
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DR2=9 : REM absence d’alteration 

REP Re Se ee ET 

REM Chaine musicale 

REM de dem 0 ee ue Le en en re 4 ne de ee em ln eu es in ee = 

V1H(1)="GSASES <C4)>G4 ES8.G16BS.A16 GZ RSGSASES 


{C4.)E8 <C8.>B16<CS8.HC16 D2&D4)A8.<C1lé >BSR4DS ES 
.F16B8.416 G2&G6S8R36G8.E16 D4G4 B4A4 <D2 RS>GSASES < 
C4>G4 ES.G16B8.416 G2 RSGSASBS <C4.2>BS <C8.2>B16<CS 
.RC16 D2&D4>A8.<Cilé >BSR4DS '" 


429 


VI1S{2)="E8.F16B5S.A16 G2&GSR8GS.E16 ASRSAS8S.F16 


BSR3SE8.Glé <C2Z8&c4!" 


456 
452 
454 
466 
465 
476 
459 
499 
599 
545 
599 
519 
929 
922 
9539 
549 
542 
544 
546 
5939 
564 
579 
939 
579 
768 
2745 
749 
719 
729 
75 
749 
745 
739 
752 
759 
769 
??79 


REM = 
REM lecture des chaines 

REM AU où de ne me: tu aie ee me né tu en ms ec en ef pe eo ii a de eu.cs di & 
FOR NC=1 TO 2 


CTHS=VI1H (NC) 
GOSUB 519 : REM vers traduction 
NEXT NC 
GOTO 799 : REM vers interpretation 
REM éme = 6 ce = me = eee es en ee + nes ne en = ee ee en = = en — 
REM Traduction 
REM 06 mn cn om 0 ie oh en en ne me == 1m ee wa œe'me ne 0 ne en ee ce où = 
XS=MIDF(CTH,1,1) 
IF X$="!" THEN GOTO 589 
IF X$=" " THEN I1=111:GOTO 589 
IF X$="<" THEN OC=0C+1:1=1+1 
IF X#="}" THEN QC=0C-1:1=1+1 
IF X$S="R" THEN VO=9:DR=1:1=1+1:GOTO0 569 
IF X$="#H#" THEN DR2=1:1=111 
IF XS="--1" THEN DRASS AC I=EEL 
GOSUB 1999 REM lecture note 
GOSUE 249 REM lecture duree 
GOSUR 596€ REM memorisation parametres 
IF XS<)>°!#"- THEN GOTO 519 
I=1 : RETURN 


REM ---- d eme me ns en nee 1e 
REM Interpretation 

REM ------- 
FOR I=1 TO NN 


SOUND 1,V(1, I1),V(2,1),V(3,1) 
NEXT I 
BEM SE re D 
REM Fin de programme 
REM © cn en eue eue mm nu ne ces en sen ee. eve me ee en Ge meme en ee on de me om me de 
CLS 
FRINT"DESIREZ-VOUS REENTENDRE LA MELODIE ?" 
PRINT" <0}> <N>" 
RH=INKEYS:IF R#="" THEN GOTO 779 
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775 IF R$="0" THEN GOTO 719 

769 IF R#<>"N" THEN GOTO 779 

79@ PRINT:PRINT:PRINT"'AU REVOIR":PRINT:PRINT 
795 END 

1909 REM ====================2====2=== 

1995 REM PROC. LECTURE NOTE 

1999 REM ======z======z========s====== 

1919 XHS=MIDH(CTF,I,1) 

1928 IF X#="C" THEN NU=1 

195Q IF X$="D" THEN NU=3 

1449 IF XS="E" THEN NU=S 

1950 IF XH="F" THEN NU=6 

1969 IF XH="G" THEN NU=S 

19?7@ IF X="A" THEN NU=19 

1950 IF K="B" THEN NU=12 

1985 NU=NU+DR2:DR2=9 

1979 I=Itli 

11@9 RETURN 

2999 REM =============2===2==2=s=sszzzz= 

2985 REM FROC. LECTURE DUREE 

2419 REM ============2==E===S=S====== 

2929 K1F5="" 

2934 XF=MIDF(CTE,1I,1) 

284€ IF ASC(XF)<=57 AND ASC(XF)2=48 THEN X1#F=X1 
P+XH:1=111:GOTO 2936 

2654 D=VAL(X1F) 

2969 IF X#="." THEN D=(D+D/2)/2:1=14#1 

2965 KXF=MIDH(CTHF,I1,1):1F XF="&" THEN DR=1:1=1t#+1 
2479 RETURN 

S909 REM ========2====s=2=======z=== 

9095 REM PROC. FARAMETRES 

9909 REM =========================== 

5619 NN=NN+I 

5924 V(1, NN) =ROUND(62599/ (44@X (2° (0C+(NLI-.19) /12))) 
) 

5959 A=TEMPO/D : B=ROUND(AKY.8) : C=A-B 

5949 IF DR=1 THEN DR=@:V(Z,NN)=A:V(S,NN)=V0:GOTO 5 
95e 

5959 V(2,NN)=B:V(S, NN) =V0 

5969 NN=NN +1 

5979 VIL,NN)=299:V(2,NN)=C:V(5,NN)= 9 

5989 VO=12 

5999 RETURN 


ATTENTION : chaque chaîne de traduction devra obligatoirement se 
terminer par “!” (indicateur de fin de chaîne). 


N'oubliez pas non plus de remplacer V1$ par CT$ aux lignes 510, 1010, 
2030 et 2065. 
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Partition 5 — Sur le Pont d’Avignon 


EE — 
EE _— 
RE 
ii péès Perts lin 
Em — 


Le signe d’altération est maintenant écrit immédiatement après la clé, en 
début de portée. Cela signale à l’interprète que toutes les notes qui 
occupent une place identique à celle du signe, sont altérées durant toute la 
mélodie. 




























































































Pour la partition ci-dessus, les notes Fa seront toutes augmentées d’un 
demi-ton. Lors de la traduction, n’oubliez pas dès lors, d’indiquer un # 
avant chaque lettre F. 


Nous adapterons une autre technique de traduction, chaque chaîne ne 
concernera qu’une seule portée. 


V1$(1) = “G8G8G4 ASA8A4 B8.<C16D8>G8#F8.G16A8D8!” 
V1$(2) = “G8G8G4 ASABA4 B8.<C16D8>G8 A8#F8G4!” 
V1$(3) = “G8G16G16G8G8 A4G4 G8G16G16G8G8 A4G4!” 
V1$(4) = “V1$(1) 

V1$(5) = “V1$(2) 


Il est inutile de recopier ce qui est identique ! N’oubliez pas d’indiquer à 
la machine qu’il y a S “phrases” à traduire : 


460 FOR NC = 1 TO 5 
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19 
15 

18 

29 

199 
185 
119 
129 
139 
149 
159 
169 
179 
184 
499 
495 
499 
419 
! ” 

415 
42 
425 
439 
459 
452 
454 
469 
465 
479 
489 
499 
599 
595 
599 
519 
529 
522 
539 
549 
542 
544 
546 
559 
569 
579 
539 
599 
769 
795 
799 
719 
729 


VOHHHHHHHHHHHHHHHHHHHHHHHEHEH 

% PROGRAMME 41 

* Sur le Pont d’Avignon 
HHHHHHHHHHHHHHHHHHHHHHHRHE 

REM de ce me cie mt os du Glen ir dures ait ds ne ee ua ie tu rue eus sie cm mm ee 
REM Initialisation 

REM mo co ee © em ven de os male ce me em = ee en eme: me me me à 
DIM V(3,599) 

NN=S : REM no ler signe musical 
OC=9: REM octave de depart 
TEMPO=192 : REM noire 122 

1=1 : REM premier caract de la chaine 
VO=12 : REM volume initial 


DR2=9 REM absence d’alteration 
LT EE RE el tan cine rene cr ne 
REM Chaine musicale 

REM ré on ee ee em me ons de où © en ee Le et de = en ee vece ce 


V1F(1)="G8686G4 ASASA4 B8.<C16D8>6G8 #F8.G16A8DS 


V1H(2)="G86G86G4 ASASA4 B8.<C16DS>G8 ASK#F8G4!" 
V1#(3)="G86G16G16G86G8 A4G4 G86G166G16G86G8 A4G4!" 


V1(4)=V1#(1) 

V1F(S5)=V1#(2) 

REM ms mms Ste seen Dot de de on me à en + 
REM lecture des chaines 

REM me = ns me ee = — en 0 en ce ee en + on © = de es + ce 


FOR NC=1 TO 5 
CTF=V1H (NC) 
GOSUB 519 : REM vers traduction 
NEXT NC 
GOTO 769 : REM vers interpretation 
REMESS S n at eo E 
REM Traduction 
LEE een poeas men dei tone ee arf ir 
XF=MIDHS(CT#&,1,1) 
IF X$="!" THEN GOTO 589 
IF X$=" " THEN 1=1+1:GOTO 589 
IF X#="<" THEN OC=0C+1:1=I1+1 
IF X#$=">" THEN OQC=0C-1:1=14+1 
IF XS="R" THEN VO=@:DR=1:1=1+1:GOTO 569 
IF XS="#" THEN DR2=1:1=14+1 
IF X$="-" THEN DR2=-1:1=1+1 
GOSUB 1999 : REM lecture note 
GOSUB 24909 : REM lecture duree 


GOSUB 5969 REM memorisation parametres 
IF X#<2>"!" THEN GOTO 519 
1=1 : RETURN 
REM: == DR 
REM Interpretation 
REM mm mm ne mu mn me den nu me ee me me me me ne ne mes © ne me mn me ne mn me 


FOR I=1 TO NN 
SOUND 1,Vt1, 1),V(2,1),V(3,1) 
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739 MEXT I 


749 REM 

742 REM FIN DE PROGRAMME 

744 REM SSSsssss=s==z=z==z=s= 

759 CLS 

755 PFRINT"DESIREZ-VOUS REENTENDRE LA MELODIE 7” 
769 PRINT" <9»> <N2>" 

779 RE&=INKEYS:IF R$&="" THEN GOTO 779 

775 IF R#="0" THEN GOTO 769 


789 IF R#S<)>"N" THEN GOTO 779 

785 PRINT:PRINT:FRINT"AU REVOIR":PRINT:PRINT 
799 END 

1999 REM =========================== 
1995 REM PROC. LECTURE NOTE 

1909 REM ================22=22=2=2222=22= 
1919 XS=MIDH(CTS,1,1) 

1929 IF X#&="C" THEN NU=1 

1956 IF X$="D" THEN NU=3 

1946 IF XH="E" THEN NU=S 

195@ IF X#5="F" THEN NU=é6 

1969 IF X&="G" THEN NU=8 

1979 IF X$="A" THEN NU=19 

1989 IF X#="B" THEN NU=12 

1985 NU=NU+DR2Z:DR2=9 

1999 I=It+1 

1169 RETURN 


LCODD REM ss =s==22=-s=s2s=222=e== 

2995 REM PROC. LECTURE DUREE 

29019 REM ==s=s=2sss=2=2-=S222=2s2£223225 

2929 X1F="" 

2939 KFS=MIDFE(CTH,1,1) 

2949 IF ASC(XHS)<=57 AND ASC(X#))=48 THEN X1#=X1 


F+XF:1=1+1: GOTO 2939 

2954 D=VAL(X1#) 

2969 IF X#="." THEN D=(D+D/2)/2:1=1t+1 

2965 XF=MIDH(CTH,1,1):1F XF="&" THEN DR=1:1=1+1 
2979 RETURN 

S000 REM =====2=2=====2======2=======22=s= 

5995 FREM PFROC. PARAMETRES 

5099 REM =z===2222=S2=2S=2=222=2=S2S2=z=2z=z 

5419 NN=NN+I 

5924 V(1, NN) =ROUND (62599 / (449X(2°(OC414(NU--19)/12))) 
} 

5439 A=TEMPO/D : B=ROUND(AX@.8) : C=A-B 

594Q IF DR=1 THEN DR=@:V(Z,NN)=A:V(S, NN) =VO0: GOTO 5 
959 

5959 V(2,NN)=R:IV(S, NN) =V0 

5969 NN=NN+1 

5979 V(I,NN)=299:V(2,NN)=C:V(3,NN)= 9 

5989 VO=12Z 

5979 RETURN 
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EXERCICES À UNE VOIX 


Il est temps de mettre en œuvre ce que vous venez de lire. Voici trois 
œuvres à une voix, traduisez chaque partition sous forme de chaînes 
alphanumériques, introduisez celles-ci dans le programme, faites-le 
fonctionner et écoutez. Les réponses et programmes se trouvent après les 
trois partitions. 


Partition 6 — Ouverture de Tannhaüser 
= 50) 





( 
Ü ET 5 
Sa 


& 






































































Partition 7 — Valse “Heure exquise” de la Veuve Joyeuse 
(@= 120) 


a — 


= _— = EE 
D ES ED DO ni GS EU DS En GS UE 
ES LT 1] [1 
















































































Partition 8 — Vive le vent 


EE 

EE 

== === 
gp PR Rint 
LÉ rerrEteEt 


Reprendre les 16 premières mesures 
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D Réponses 


Partition 6 


Les différences par rapport aux programmes précédents seront seules 
présentées. La petite difficulté possible dans la traduction de cette première 
œuvre estle ( ° = 50 ) signifiant qu’il y a 50 noires en 60 secondes. Une 
noire “durera” donc 60/50 = 1,2 seconde. La mesure équivalente à 3 
noires, TEMPO prendra la valeur 120 X 3 = 360. 


Nous avons ajouté quelques lignes de présentation au début du 
programme ainsi que l'affichage du numéro de la chaîne qui est mémorisé 
(au moins on se rendra compte que l’ordinateur travaille pendant la période 
de silence !). 


19 ? HHHHHHHHHHHHHHHHHHHHHHHHHHH 
15 ” PROGRAMME 42 

29” Quverture de Tanhauser 
2S ? HHHHHHHHHHHHHHHHHHHHHHHHHHEH 


159 TEMPO=369 : REM noire=S9 


199 CLS 

299 LOCATE 95,168: PRINT'"Ouverture de Tannhauser." 

219 LOCATE 9,11:PRINT"========================" 

490 REM Ds D nes bve-mns one Qui tin he: nat daim en mu nie be. nee me mm me me ve ce en 

495 REM Chaine musicale 

4309 REM ans em nom ne me om ne ve os eee me ve mm ve ee ete un dus ce con ee ne ee es 

419 Vi1H(1)="G4 <C2)G4 E4.E3F86G8 G444G4 G4F4A4 <D2C 

4)1? 

412 V1H(2)="B4.GS8A8B5S <C4>2A4G8.E16 E4D4G8.A16 A4G4 

A4 A2G8.A16!" 

414 VI1IS(3)="A4G4A4 A2A4 G4.GSASBS <C4)>B444 G4A4,.GS 
G21? 


455 PRINT:PRINT"numero chaine traduite :" 
469 FOR NC=1i TO 3 
462 PRINT TAB(S5);nc 


Partition 7 


19 ? HAHHHHHHHHHHHHRHAHHAHARAHHHHHH 


15 ? PROGRAMME 435 
29 | VALSE "Heure exquise 
29 | de la Veuve Joyeuse 


59 ? HAHHHRHHAHHHHHHHHHHRHHHHHHHHHE 
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159 TEMPO=159: REM noire 129 


199 CLS 

269 LOCATE 9.,19:PRINT"Valse HEURES EXQUISES" 

295 LOCATE 9,11:PRINT" de la Veuve Joyeuse" 

219 LOCATE 9,12:PRINT"=====================" 

4GG REM _— so = ces ee c'en mn es se me ee me ne un ces ce on me 0 

4G5 REM Chaine musicale 

409. REM she ee me mm 

419 V1S(1)="D2G4 A2B4 D2G4 A2B4 <C2. >B2. A2.&A2. 
DZA4 B2Z<C4 >D2A4 B2<C4!" 

412 VI1H(2)="D2. C2. )B2.8RB2. <E2E4 H#F2E4 D2. >G2. 
<C2C4 D2C4 >B2.8&HB2.! 

414 V1H(3)="A2A4 B2A4 <D2>B4 G2E4 G2. A2. G2.!" 


469 FOR NC=1 TO 3 


Partition 8 


19 * HHHHHHHHHHHHHHHHHHHHHHHHHHEHR 
LS PROGRAMME 44 

2". De Vive le vent d'hiver 
25 ? HHHHHHHHHHHHHHHHHHHHRRHRE Ha r, 


159 TEMPO=192 : REM noire 122 


199 CLS 

299 LOCATE 9,18:FRINT"Vive le vent d'hiver. 
219 LOCATE 9,11:PRINT"=====================" 
ADO REM 2e ee 

495 REM Chaine musicale 

489 REM ------ mm mm 


419 V1HS(1)="BSBSE4 BSBSB4 BS<D8>GSAS B2 <C8c3Cc4 ?E 
SESB4 ASASASEBS A4<D4!" 

412 V1H(2)=">ESBSB4 BSBSE4 BS<DS>GSAS B2 <C16C16CI 
6C16C3C3 >EBSB3B4 <DS8DS5C83)48 G2!'° 

414 V1#(3)="R4.D8 DSESASGS D48&DS8DS DSBSASGS EA4R&ESE 
8 ES<{C8>BSAS <DSD8DSD8!'" 


468 FOR NC=1 TO 7 
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MÉLODIES COMPORTANT PLUSIEURS VOIX 


Deux voix 


Améliorons la partition de “Vive le vent d'hiver” (partition 8), en 
ajoutant une seconde voix aux 8 premières mesures de la mélodie. 


Partition 9 — Vive le vent d’hiver 


= 192 


dns 
CL 






































Les notes sont ou couplées ou isolées ou, comme pour la mesure 7 (*), la 
seconde voix comporte une seule note alors que la première en contient 
quatre. 


Adaptation du programme de base 
Attribuons à chaque voix un rôle bien défini : 


O la voix 1 occupera des notes les plus aiguës et correspondra au chant 
principal : 
410 VI$(1) = “B4B4B2 B4B4B2 B4<D4>G4A4 B2.R4!” 
415 VI$(2) = “<C4C4C4C4 C4>B4B2 B4A4A4B4 A2<D2!” 


D la voix 2 correspondra aux notes plus graves et là où il n’existe pas de 
notes, soit nous écrirons les notes de la voix 1, soit nous indiquerons des 
silences. C’est pour ce deuxième choix que nous optons : 
420 V2$(1) = “>G4G4G2 G4G4G2 G4R4R4R4 G2.R4!” 
425 V2$(2) = “A4A4A4A4 A4G4G2. G4&G4&G4&G4 
#F2R2!” 


N'oubliez pas de descendre l’octave, celle-ci étant relevée en V1$(2)! La 
ronde est traduite par quatre noires liées, si cela n’avait pas été réalisé, cela 
se serait traduit par un son d’une durée de 3 noires et une croche! 
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Nous devons prévoir deux tables de caractéristiques des sons, une par 
VOIX : 


120 DIM V(2,3,500) 


où V(1,a,b) désignera les paramètres de la voix 1 et V(2,a,b) ceux de la voix 
2: 


La lecture des chaînes doit tenir compte du nombre de voix existant : 
456 FOR V = 1 TO 2 


465 IF V = 1 THEN CT$ = VIS(NC) : VX=1 
467 IF V = 2 THEN CT$ = V2$(NC) : VY = 2 
485 NEXT V. 


VX et VY sont des indicateurs utilisés pour la mise en mémoire des 
paramètres. Le point suivant à modifier, est la mise en mémoire des 
paramètres. Peu de chose en fait, puisqu'il suffit d’ajouter une dimension 
aux variables V( , ): 


5020 V(VX,1L,NN) = …… 
5040 IF DR = 1 THEN DR = 0 : V(VX,2,NN) = A : 
V(VX,3,NN) = VO : 
GOTO 5080 
5050 V(VX,2,NN) = B : 
V(VX,3,NN) = VO 


5070 V(V,1,NN) = 200 : 
V(VX,2,NN) = C 
V(VX,3,NN) = 0 


Nous allons introduire une nouvelle variable marquée, le nombre de 
signes traduits pour chaque voix : NST(1) et NST(2) qui sont égaux à NN 
lors du passage à la traduction suivante. N'oublions pas de remettre ce 
dernier compteur à 0. 


482 NST(VX) = NN : NN = 0 


L'interprétation devra tenir compte du jeu simultané des deux voix. Le 
schéma de principe est le suivant : 


Mettre à zéro les variables compteurs 
— nombre de sons émis (C1,C2) 710 


— temps total d'exécution (T1,T2) 720 


Répéter tant que le nombre total de sons émis ne dépasse pas lel 
nombre total de sons mémorisés 730 
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Le canal A a-t-il émis plus longtemps que le canal B ? 
740 


Incrémenter le compteur | Incrémenter le compteur 
de sons 790 de sons 750 


Emettre le son sur Emettre le son sur 
canal B 800 canal A 760 


Comptabiliser le temps Comptabiliser le temps 
d'émission d'émission 
des sons 810 des sons 770 


820 





Le programme est grand dévoreur de mémoire. Afin de limiter son 
appétit, signalons dans la partie initialisation que les tableaux contiendront 
des valeurs entières : 


115 DEFINT V 


19 ? HHHHHHHHHHHHHHARHHHHHHHHHHHHHHHR 


à Bu PROGRAMME 45 

29 ? Essai deux voix 

25 ? HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHE 
199 REM ----------—-——mmmmem—mmme 
195 REM Initialisation 

119 REM ---------——— 


1:15 DEFINT V 

129 DIM V(2,53,599) 

139 NN=9 : REM no ler signe musical 

149 OC =9: REM octave de depart 

159 TEMPO=148 : REM noire=162 

169 I=1 : REM premier caract de la chaine 
179 VO=1Z2 : REM volume initial 

189 DR2=@8 : REM absence d’alteration 
199 CLS 

249 LOCATE 9,5 :PRINT'"'Essai deux voix," 
219 LOCATE 9,6 :PRINT"================" 
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AO: REMESS SE SA SENS ER name 

495 REM Chaine musicale 

499 REM en —— o ns ee ee eue mur nee 0æ ee een 06e ue me ne ee on me en ces ce + en 

419 V1F(1)="B4B4B2 B4B4B2 B4{D4>G4A4 B2.R4!" 
415 VI1S(2)="<C4C4C4C4 C4>B4B2 B4A4A4B4 A2<D2!" 
429 V2#(1)=")>G4G46G2 G4G46G2 G4R4RIR4 G2.R4!" 
425 V2#(2)="A4A4A4A4 A4G4G2 G48&G48&G4&G4 H#F2R2!" 
459 REM -------- mmmmsmemmemeem mm — _ 

452 REM lecture des chaines 

454 REM --Smre mm en e n  A mr — 

456 FOR V=1i TO 2 

457 PRINT:PRINT'voix no "V 


469 FOR NC=1 TO 2 

462 PRINT TAB(S);"ligne no "NC 

465 IF V=i THEN CTH=VIS (NC): VXx=1 
467 IF V=2 THEN CTS=V2$ (NC): VX=2 
479 GOSUB 519 : REM vers traduction 
4859 NEXT NC 

482 NST (VX) =NN: NN=G 


435 NEXT V 
459 GOTO 799 : REM vers interpretation 


SODEREM ESA RES PER me en ee mn me ne 

595 REM Traduction 

DOY-REM Eee Me ee 

519 XS=MIDS(CT#,1,1) 

529 IF X$="!" THEN GOTO 589 

522 IF X$=" " THEN 1=111:GOTO 569 

539 IF X#="<" THEN OC=0Ct1:1=1+1:GOTO 589 
549 IF X#=")" THEN OC=0C-1:1=1+1:GOTO0 559 
542 IF X$="R" THEN VO=9:DR=1:1=11+1:GOTO 569 
544 IF X$="#" THEN DR2=1:1=14+1 

546 IF Xÿ="-" THEN DR2=-1:1=1+1 

539 GOSUB 1999 : REM lecture note 

564 GOSUB 2999 : REM lecture duree 

579 GOSUB 5999 : REM memorisation parametres 


589 IF X#S<)>"!" THEN GOTO 519 

599 I=1 : RETURN 

799 REM ee = mme one sn me on 0.4 den se o 6 ven en dus dne ea den en en ne tte 2e ee ten 8 
795 KEM interpretation 

769 REM = om en nee ee cn om mn + me mé ee me ne ms one où ee es ne cé ee en ee es se 
719 C1=9:Cc2=9 

729 Ti=9:T2=9 

739 IF C1+C2>=NST(1)+NST(2) THEN END 


749 IF T2<T1 THEN GOTO 799 

758 Ci1=C1+1 

769 BOUND LIVES 1 CL) VIL, 2,CH1$V(1,S,C1) 
779 Ti=T1+V(1,2,C1) 

788 GOTO 829 

7299 C2=C2+1 

899 SOUND 2,V(2,1,C2),V(2,2,C2),V(2,3,C2) 


819 TZ=T2+V(2,2,C2) 
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829 GOTO 739 


959 REM 

952 REM FIN DE PROGRAMME 

954 RENM Ssessss=sss=ss=zzz=z 

956 CLS 

958 PRINT'"DESIREZ-VOUS REENTENDRE LA MELODIE ?" 
969 PRINT" «0?» <N2" 

962 FHS=INKEYS:IF R#$="" THEN GOTO 962 

964 IF R#="0" THEN GOTO 799 


966 IF RF<>"N" THEN GOTO 9762 

968 PRINT:PRINT:PRINT"'AU REVOIR":PRINT:PRINT 
$79 END 

1999 REM ========z=================== 
1995 REM PROC. LECTURE NOTE 

19909 REM =========================== 
1919 XS=MIDS(CTF,1,1) 

1929 IF X#$="C" THEN NU=1 

1959 IF XF="D" THEN NU=3 

1949 IF XH="E" THEN NU=S 

1956 IF XF5="F" THEN NU=6 

1969 IF X#="G" THEN NU=8S 

1979 IF X$="A" THEN NU=19 

1989 IF X#5="B" THEN NU=12 

1935 NU=NU+DR2:DR2=9 

1999 I=It1 

116% RETURN 


2909 REM =========================== 

2995 REM PROC. LECTURE DUREE 

29019 REM =========================== 

2929 X1F5="" 

2959 KXS=MIDHS(CT#,1I,1) 

2949 IF ASC(XF)<=57 AND ASC(XS)>=48 THEN X1$ 


+XH:1=111:GOTO 2959 

295% D=VAL(X1F) 

2969 IF X#="." THEN D=(DtD/2)/2:1=1t1 

2965 XF=MIDF(CTS,1,1):1IF X$="&" THEN DR=1:1=14#+1 
2979 RETURN 

SOOQ REM =========================== 

5995 REM PROC. PARAMETRES 

5999 REM =========================== 

5919 NN=NN+1 

5929 VEUX, 1, NN) =ROUND (62549 / (449% (2° (0C1(NU-19) 
)1)) 

5939 A=TEMPFO/D : B=ROUND(AXS.3) : C=A-B 

5949 IF DR=1 THEN DR=@S:V(VX,2,NN)=A:V (VX, 3, NN) = 
GOTO 59839 

5959 V(VX,2,NN)=B:V(VX, 3, NN) =VO 

5968 NN=NN+I1 

5979 VIVX, 1,NN)=298:VCUX,2,NN)=C:V(VX, 3, NN)= 9 
5989 VO=12 

5999 RETURN 
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Voici une partition adaptée de l’Ode à la Joie de Beethoven. Essayez 
d'introduire les chaînes alphanumériques et de faire interpréter l’œuvre par 
votre ordinateur. 


Certains lecteurs non habitués à la lecture d’une partition éprouveront 
des difficultés à trouver le nom des notes. Voici un moyen efficace. 


Prenez une feuille de papier et tracez sur 2 cm de large les lignes 
parallèles correspondant aux deux portées portant les deux clés. 



































Ecrivez les lettres code des notes. En déplaçant ce feuillet sur la partition, 
la traduction en sera facilitée. Attention au changement d’octave. 


Partition 10 — Ode à la Joie 


C0 4,7, 
PL +/ 
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Nous adopterons une nouvelle convention d'écriture : 
ee 


sera traduit par B4&B8 en effet, le signe musical pourrait être traduit par : 











à la mesure 4 

















ce qui se rapproche plus de l’exécution “normale”, la première note étant 
maintenue sur toute sa durée, la seconde l’étant à 80 %, ce qui au total 
nous donne pour un TEMPO de 192, une durée de : 


48 + (29 X 0,8) 67 centièmes de seconde 
alors que par le procédé direct (B4.) nous aurions : 
(48 +24) X 0,8 58 centièmes de seconde 


ce qui ne correspond pas à l’effet sonore attendu par le compositeur. 


Adaptation du programme 


19 ? HHHHHHHHHHHHHHHHHHHHHHHHHHHHEHR 
15 PROGRAMME 46 

29 ODE A LA JOIE (2V) 
25 ? HHAHNHHHHHHHHAHRHHRHHHHHRHHHHHH 


149 OC =1: REM octave de depart 
159 TEMPO=169 : REM noire=159 
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294 
214 
498 
45 
499 
41 


412 


414 


LOCATE 9,5 : PRINT"'ODE À LA JOIE." 
LOCATE 9,6 : PRINT'==============" 
RE nn D de. moi doe oo sun one ve ee om due mi ts des maciétie it mn ee mur + met on 
REM Chaine musicale 

REM -- Fo ne le nine mia 


V1S(1)="E4E4F46G4 G4F4E4D4 C4C4D4E4 E4B&ESDS8D2!" 
V1S(2)="E4E4F4G4 G4F4E4F8D8 C4C4D4E4 D4&DS8C8C2 


V1$S(3)="D4D4E4C4 D4E8F8E4C4 D4E8F8F4D4 C4D4>G4 


<E4&!" 


416 


419 
429 


424 
4E4 
426 


469 


V1H(4)="E4E4F4G4 G4F4E4D4 C4C4D4E4 D4&D8CSC2!" 


oc=9 
V2#(1)="C4C4D4E4 E4D4C4>B4 A4A4B4<CA4 C42G4G2% ! 


V2#(27)="C4C4D4E4 E4D4C4D4 E4E4F4G4 G4F4E4C4!" 
V2$5(3)=")B4G4<C48C8)G8 G4<C8)>B8<C4C4 >G4636GSRhG 


A4F4G2!" 
V2#(4)="<C4C4D4E4 E4D4C4F6D8 E4E4F4G4 G42G4<E2 


FOR NC=1 TO 4 


Trois voix 


Votre ordinateur dispose d’un générateur de sons permettant le travail 
sur trois voix, profitons de cette possibilité en lui faisant interpréter la 
partition suivante. 


Partition 11 — Valse “Heure exquise” de la Veuve Joyeuse 
de Franz Lehär 
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Adaptation du programme 





Prévoyons la table des sons pour les trois canaux : 
120 DIM V(3,3,500) 


La traduction de la partition en chaînes alphanumériques passe beaucoup 


de temps à répéter une durée qui reste la même pour plusieurs notes 
successives. 


Une amélioration consiste à introduire une durée de base des notes au 
début de l’exécution de la première chaîne ou en cours de traduction. Dans 
l’œuvre présentée, la blanche est la base de la voix 1 tandis que la noire 
concerne les voix 2 et 3. Introduisons la variable L suivie de la durée base, 
par exemple : 


V1$() = “L2...” 
V2$() = “LA...” 
V3#() = “LA...” 


La partie “traduction” devra être modifiée en conséquence, à la 
rencontre d’un “L” : 


Incrémenter le pointeur de chaîne I 


Lire la valeur derrière le L 
(mettre un drapeau et aller en procédure Lecture Durée) 
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Attribuer à DO (durée initiale) la valeur D trouvée dans 
la procédure 


Retourner à la suite du programme 


ce qui se traduira par : 


524 IF X$ = “L” THEN I1=1+1: 
DRL = 1 : 
GOSUB 2000 : 
DO = D : 
GOTO 510 





La procédure “Lecture Durée” devra être modifiée : 


O pour tenir compte du drapeau : 
2055 IF DRL = 1 THEN DRL = 0 : RETURN 
(le drapeau est rendu inactif en prenant la valeur O0). 


O pour tenir compte de la valeur D0. En effet, deux situations se 
présentent : 


— soit deux lettres désignant deux notes se succèdent sans indication de 
durée : 


“AB » 


dans ce cas, D calculé à la ligne 2050 vaut 0 et il faut lui attribuer la 
valeur DO; 


— soit ces deux lettres sont séparées par un nombre 
“A4B” 
D prend la valeur 4 et le programme peut se poursuivre normalement. 
Modifier la ligne 2050 : 
2050 D = VAL(X1$) : IF D = 0 THEN D = DO 


Revenons à l’adaptation du programme aux troix voix possibles. 


Adaptons la “lecture des chaînes” en répétant trois fois l’attribution de la 
chaîne de travail CT$ : 


456 FOR Vzi TO 35 
457 FRINT:PRINT'voix no "354 


+649 FOR NC=1 TO 4 
462 PRINT TAB(S)53"ligne no "3: NC 
485 IF V=1 THEN CTS=VIS(NC):VX=1 


467 IF V=2 THEN CTH=V2S (NC): VX=2 
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Développons la partie interprétation en tenant compte de cette troisième 
dimension : 


719 C1=9:C2=9:C3=9 
P29 TI=G: T2=9:T3=9 
P739 1F C1+C2+C3>=NST(1)+NST(Z)1INST(3S) THEN 959 


749 TX=MIN(TI1,T2,T3) 

741 IF TX=T2 THEN GOTO 799 

742 IF TX=T3 THEN GOTO 839 

759 Ci=CI+1 

769 SOUND L,Vi(1,1,C1),Vt!1,2,C1),Vt1,3,C1) 
779 TimfieV(1,2,C1) 

789 GOTO 869 

798 C2=C?2+1 

899 SOUND 2,V(2,1,0C21,Vt2:2,02);V1i2,3,C2) 
819 T2=T2+V(2,2,C2) 

329 GOTO 869 

839 C3=C3+1 

84g SOUND 4, VtS f,0%),Vt,2,03),VtS,3,C31 
859 TI=TSIV(S, 2,03) 


569 GOTO 734 


Introduisez ces modifications et faites fonctionner le programme. Ayez 
de la patience, car il faut maintenant du temps à l’ordinateur pour coder les 
informations fournies par les chaînes alphanumériques. Nous pourrions 
gagner un peu de temps et de la place mémoire, en considérant toutes les 
variables numériques comme étant des nombres ‘entiers : 


115 DEFINT A-—-Z 


Mais l’effet sur le temps de traduction est très peu important. 


19 ? HHHHHHHHHHHHRHHHRHHHHHHHHHHHHH 


15 : PROGRAMME 47 

29 | Valise Heure Exquise 

25 ? HHHHHHHHHHHHHHHHHHHHHHHHHHHHHEH 
OO RE 

195 RENM Initialisation 

LED RE 


115 DEFINT A-Z 

129 DIM V(3,3,599) 

139 NN=9 : REM no ler signe musical 

149 9NC=9: REM octave de depart 

159 TEMPO=129 : REM noire=125 

169 I=1 : REM premier caract de 13 chaine 
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179 VO=12 : REM volume initial 

189 DR2=9 : REM absence d'’'alteration 

199 CLS 

299 LOCATE 9,5 : PRINT"HEURES EXQUISES" 

219 LOCATE 9,6 : PRINT"'===============" 

499 REM ----------- “mme 

495 REM Chaine musicale 

498 REM cn cn ee com me met mn “out mie eu oi ( DANS 00: ci UN de 6e pe me de: ne 

419 VIH(1)="L2 D&G44 ARB4 DRGALALB4 <C&CAR >BRB4R 
AR&A4& A&A4!" 

411 VIH(2)="D&A4R& B&<C4 >D&AAR B&<CA4 DRDAR CRCAR > 
B&B48& B&B4!" 

412 VIS(S)="<EEA4R H#F&E4 D&DA4& >GRG4 <CCA& D&C4 >B& 

B4& B&B4!" 

413 VIH(4)="AA4R BRA4 <D&)BA4R GLEA4 GRGAR AGAIR GR&G 

4!" 

429 V?2S(1)="L4 >>G<BB DBB >G<BB DBB >A£<CC >>G<BB 

DAA DAA!'" 

421 V2H(2)="#H#F<CC >D<CC >HF<CC >D<CC >>B<GG >A<<CC 
>>G<BB >G<BB!'" 

422 V2#(3)="C<CC >>A<<CC >>B<GG EBB >A<AA >HF<AA > 

B<HFHF >B<HFHF!" 

423 V2#(4)="DAA CAA >B<GG CGG >A<GG D<CC >B28&B4!" 

439 VS5F(1)="L4 R4GG R4GG R4GG R4GG RAHFHF R4GG RAK 

F#F RAHFHF!" 

431 V3H5(2)="R4AA RAKFHF RAIAA RAHKFHF RADD RAHFHF R4 

GG R4GG!" 

432 V3$(3)="R4GG RAKFHF RA4DD R4GG RAEE R4EE R4HD#D 
R4HD#HD!" 

433 V3H(4)="RAHFRF RAKFHF RADD R4EE RAEE RAHKFHF G2 

&Ga4!" 

459 REM loue ous un de ton due ee vue 60 mn ou ce ee. bon en tes one mue me on cé de em me mn on 

452 REM lecture des chaines 

454 REM -------------——-—--m—— 

456 FOR V=1 TO 3 

457 PRINT:PRINT'voix no "35;V 

469 FOR NC=1 TO 4 

462 PRINT TAB(5)3;"ligne no "s: NC 

465 IF V=1 THEN CTS=VIS (NC): VX=1 

467 IF V=2 THEN CTF=V?2# (NC): Vx=2 

469 IF V=S THEN CT#S=V3# (NC): VX=3 

479 GOSUB 519 : REM vers traduction 

489 NEXT NC 

482 NST (VX) =NN: NN=g 

485 NEXT V 

499 GOTO 798 : REM vers interpretation 
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59 REM Ne en ver ve me ve ee se Ce oc ee 006 re; on:00n men. o0e ee nee con mn ve em 

595 REM Traduction 

599 REM nc + eh ce ee 4e 10e 000 de me = 00 ne sen on mn me etes me 1e 2 ne mn ce 

519 XF=MIDH(CTH,1,1) 

529 IF X$="!" THEN GOTO 589 

922 IF X$=" ” THEN I=1+1:G0OT0 589 

524 IF X#5="L" THEN 1=1+1:DRL=1:GOSUB 29@99:D9=D: 
GOTO 519 

5359 IF X$="<" THEN OC=0C+1:1=1+1: GOTO 559 
949 IF X#="}" THEN OC=0C-1:1=1+1:GOTO 589 
542 IF X#="R" THEN VO=9:DR=1:1=111:GOTO 569 
544 IF X#="#H#" THEN DR2=1:1=14+1 

546 IF KX$="-" THEN DR?2=-1;:1=1t+1 

959 GOSUB 1999 : REM lecture note 

569 GOSUB 2999 : REM lecture duree 

S 79 GOSUB 5969 : REM memorisation parametres 
9009 IF <%<)"!”" THEN GOTO 519 

979 I=1 : RETURN 

798 REM un nn ns vue me mue von me on ne ose ven = ee ons mn ne ee. ee ee nee ven ee en ee ee se ee 

2795 REM Interpretation 

POP REM on mr re 


719 C1=9:C2=9:C3=9 
P729 T1=9:T2=9:T3=9 
736 IF C1+C2+CS>=NST(1)+NST(2)1NST(3) THEN 959 


74 TX=MIN(TI,T2,TS) 

741 IF TX=T2 THEN GOTO 799 

742 IF TX=T3 THEN GOTO 839 

799 Ci1=C1+1 

769 HOOUND 1 V1 1 CII,VCE,2,CL1T,VEL1,3,CE) 
779 Ti=T1+V(1,2,C1) 

789 GOTO 869 

799 C2=C2+1 

599 SOUND 2,V(2,1,0C2),V(2,2,C2),V(2,3,C2) 
819 T2=T24V(2,2,C2) 

8329 GOTO 869 

859 C3=CcS+1 

849 SOUND 4, VI3,1,C3),Vt3,2,C2+ US 0,00) 
8354 TS=TS+V(5,2,0C3) 

569 GOTO 739 

959 REM 

932 REM FIN DE PROGRAMME 

954 RENM S=============== 

956 CLS 

958 PRINT'"'DESIREZ-VOUS REENTENDRE LA MELODIE 7?" 
969 PRINT” <0?> <N23" 

962 RES=INKEYS:IF R$="" THEN GOTO 962 

964 IF R#="0" THEN GOTO 799 


F66 IF R#S>"N* THEN GOTO 962 
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958 PFRINT:PRINT:PRINT"AU REVOIR":PRINT:PRINT 
979 END 

1909 REM =========================== 

1995 REM PROC. LECTURE NOTE 

19099 REM =========================== 

1919 XS=MIDS(CTS,1I,1) 
1929 IF X#="C" THEN N 
1959 IF XF5="D" THEN NU= 
1949 IF XH="E" THEN N 
195 IF X$="F" THEN N 
1969 IF X#="G" THEN NU=8 

1079 IF X$="A" THEN NU=19 

1989 IF X#$="B" THEN NU=12 

1985 NU=NU+DR2:DR2=9 

1999 I=I11 

1199 RETURN 

20909 REM =========================== 

2995 REM PROC. LECTURE DUREE 

2919 REM =========================== 

2929 Xx1F="" 

2959 XH=MIDE(CTHS,1,1) 

2949 IF ASC(X#)<=57 AND ASC(X#H)2=48 THEN X1#=X1 
H+XH:I=1+1:GOTO 29359 

2959 D=VAL(X1H):1IF D=9 THEN D=D9 

2955 IF DRL=1 THEN DRL=S:RETURN 

2959 IF X$="." THEN D=(D+D/2)/2:1I=14+1 

2965 XH=MIDE(CTHS,1,1):1IF XH="&" THEN DR=1:1=111 
247@ RETURN 

5009 REM =========================== 

5995 REM PROC. PARAMETRES 

59099 REM ====================S====== 

5919 NN=NN+1 

5929 V(VX, 1, NN) =ROUND (62599 / (44SX(2T(0C+(NU-19)/12 
2))) 

5939 A=TEMPO/D : B=ROUND(AX9.8) : C=A-B 

5949 IF DR=1 THEN DR=Y:V(VX,2,NN)=A: V(VX,S,NN)=V0: 
GOTO 5989 

5959 VIVX,2,NN)=B:V(UVX, 3, NN) =V0O 

5969 NN=NN+1 

5979 V(VX,1,NN)=299:V(UVX,2,NN)=C: V(UVX,3,NN)= g 
5989 VO=12 

5999 RETURN 


Application 


Voici une partition ne présentant aucune nouveauté, ni en ce qui 
concerne l'écriture des chaînes alphanumériques, ni en ce qui regarde le 
programme. Essayez de la traduire. 
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Partition 12 — Sarabande d’Hændel 


Grave È 100) 




















































































































Remarque : un signe d’altération porte sur toute la mesure, même s’il n’est 
indiqué que devant la première note de celle-ci (exemple mesure 8). 


Le calcul du TEMPO se réalise de la manière suivante, = 100 signale 
qu’il y a 200 noires en 1 minute, la durée d’une noire est donc de 
60/200 = 0,3 seconde. Une mesure dans le cas de cette partition étant 
composée de 6 noires, elle durera 0,3 X 6 = 1,8 secondes ou 180 centièmes 
de seconde. Pour que les sons coïncident, il nous faut vérifier que cette 
valeur est un multiple du code de la note la plus courte. Comme il s’agit de 
la noire, dont le code est 4, 180 étant multiple de 4, nous pouvons conserver 
cette valeur comme TEMPO. 


Adaptation du programme 


19 ? HHHHHHHHHHHHHHHHHRHRHHHRHHHEHHEH 

15 | PROGRAMME 453 

20 Sarabande 

25 ? HHHHHHHHHHHHHHHHHHHHHHHHHHHHHE 

156 TEMPFO=189 : REM noire=299 

199 CLS 

299 LOCATE 9,5 : PRINT"SARABANDE - HAENDAEL”" 
219 LOCATE 9,6 : PRINT"===============2222== 
499 RER he de ni on ne on de du DD ve Me er à de + ne me we cie ttes Was eue one me 

495 REM Chaine musicale 

493 REM di du an de ne à à rue nee 0 de me mn mes we se der = de. æ. ve ©: ose em se 
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419 VI1S(1)="L2 FFR4G4 EER2 AAR4-B4 GGR4A4 -B-BR4<C 
a!" 

411 V1#(2)=">AAR4A4 <DDR4E4 HCHCR2Z >FFR4GA4 EERZ AA 
R4-B4!" 

412 VI(3)="GGR4A4 -B-BR4<C4 >AGA4AA4CDAIHCA D4E4FE4 
D4 D2D2R2!" 

429 V?2&(1)=">DDR4E4 HCKHCR2Z FFRA4G4 EER4K#F4 GGR4A4!" 
421 V2F(2)="FFR4A4 A2G2R4-B4 AAR2Z DDR4E4 HCHCR2 FF 
R4GA4!" 

422 VR2F(3)="EERA4KF4 GGR2 F&FA4RA4F A<DHC >AAR2!'" 

459 V3F(1)="D>D>R2Z A&A4-B4A4G4 <FFR2 C&C4C4>-B4A4 

G<G>G!" 

4531 V3H(2)="<DDR4C4 >-B<-BR4G4 ALA4GIFAES D>DR2 A& 
A4-B444G4 <FFR2!" 

432 V3&(3)="C&C4C4)>-B4A4 G4<G4E4GA4C4E4 F&F4D4-B GA 
>A <D>DR2!" 


464 FOR NC=1 TO 3 


NUANCES 


Niveaux de volume 


Les interprétations réalisées jusqu’à présent ne se composent que d’une 
succession de sons et de repos, sans expression particulière. Certains signes 
doivent permettre à l'interprète, et ici à votre ordinateur, de marquer 
l’œuvre d’une certaine « vie ». 


Une série de termes et d’abréviations caractérisent la dynamique du jeu 
musical. On utilise généralement des termes italiens pour noter les nuances. 
Dans l’échelle courante, celles-ci vont du fortissimo (ff, parfois fff) ou 
pianissimo (pp, parfois ppp) en passant par le forte (f), le mezzo-forte (mf) 
le mezzo-piano (mp), le piano (p). 


pianissimo très doux 
piano doux 


mezzo-piano normal 
mezzo-forte demi-fort 
forte fort 
fortissimo très fort 
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Adaptation du programme 


Nous nous servirons de la lettre V suivie d’une valeur allant de 7 à 15. 
Vous pouvez aller de O0 à 15, nous utilisons d’ailleurs la valeur O0 pour 
obtenir les silences, mais arbitrairement, nous fixerons le seuil inférieur 
«pianissimo» à V = 7. A la mise en route du programme, nous 
initialiserons la valeur 10, ce qui correspond à l’intensité «normale ». Ce 
volume sonore restera constant jusqu’à une nouvelle précision de la valeur 
de V. 


Des modifications doivent apparaître dans notre programme : Interven- 
tion du code V suivi d’un ou 2 chiffres. 


526 IF X$ = “V” THEN I = I + 1: DRL = 1 
GOSUB 2000 : VO = 
GOTO 510 


Nous retrouvons une structure identique à la rencontre de “L”. N'oubliez 
pas de fixer la valeur initiale VO à la ligne 170 


170 VO = 10 
et de supprimer la ligne 5080. 


s 


Essayons sur un petit exemple à une voix : 


2 — — 
—| : $ 9 TER (PE ENRNN REX ES 





Nous pouvons représenter la variation maximale du volume par un 
graphique : 


Volume 


# 15 
f 13 
mf Il 
mp 10 
p 9 
PP 7 


0 








Durée 
La traduction sera : 
V1$(1) = “L4 V9ICD EF VBGA BA GF V9EE DD C2!” 
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Remarque : pour n’entendre et ne jouer qu’une voix, vous devez 
transformer quelque peu le programme. 


Supprimer les lignes 456, 485, 740, 742, 743, 790, 830 


19 ? HHHHHHHHHHHHHHHHHHHHHHHHHHHHHH 


15 | PROGRAMME 49 

29.” Gamme modulee 

25 ? HHHHHHHHHHHHHHHHHHHHHHHHHHHHHEH 
LODREM Sem ne 2e nm en mm mm re 
195 RENM Initialisation 

PO RE 


115 DEFINT A-Z 

129 DIM V(3,3,599) 

139 NN=9 : REM no ler signe musical 

149 OC=9: REM octave de depart 

159 TEMPFO=189 : REM noire=299 

169 I=1 : REM premier caract de la chaine 
179 VO=18 : REM volume initial 

189 DR?2=8 : REM absence d'’alteration 

178 CLS 

299 LOCATE 9,5 : PFRINT'NIVEAUX DE VOLUME” 
219 LOCATE 9,6 : PRINT"'=================" 
499 REM dm cute de eee en en bou ve me eve on on en an ton men ve den Si ae ne Ge en 

495 REM Chaine musicale 

ADS REM -- me mme me memes minime 

419 VI1H(1)="L4 V9CD EF VIi3SGA BA GF V9EE DD C2!" 
459 REM de Dei 6 où euf vel vimen eue aus me de min ds one nû- des sen ou eus han eue one die ein tt à 2 

452 REM lecture des chaines 

454 REM on se one 06 me ven dos mon on ee ous men coû me ee 0 me ne. me 6e ee ee me me on en 0 
456-FOR V=1 TO 1 

457 PRINT:PRINT'voix no "353V 


469 FOR NC=1 TO 1 

462 PRINT TAB(S);"l1igne no "3; NC 

465 IF V=1 THEN CT#=VIS(NC): VX=1 
467 IF V=2 THEN CTH=V2S(NC): Vx=2 
467 IF V=S THEN CTH=V3S (NC): VX=S 
479 GOSUB 519 : REM vers traduction 
489 NEXT NC 

482 NST (VX) =NN: NN=@ 


435 NEXT V 

499 GOTO 799 : REM vers interpretation 
309 -REMER mm mm 

595 REM Traduction 

599 RM == 

519 XFS=MIDBS(CTH,1,1) 

529 IF X#="!" THEN GOTO 589 

922 IF X$=" " THEN I=1+1:GOTO 589 


L'INTERPRÉTATION MUSICALE | 143 


524 IF X$="L" THEN 1=1+1:DRL=1:GOSUB 2969:D9=D: 
GOTO 519 

526 IF XS="V" THEN 1=1+1:DRL=1:GOSUB 2996: VO0=D: 
GOTO 519 

539 IF Xæ="<" THEN OC=0C+1:1=111:GOTO 559 
549 IF X#=")" THEN OC=0C-1:1=1+1:GOTO 589 
542 IF X#S="R" THEN VO=9:DR=1:1=11+1:GOTO 569 
544 IF X$S="#hH" THEN DR2=1:1=1+1 

546 IF X#%="-" THEN DR2=-1:1=1+1 

559 GOSUB 1909 : REM lecture note 

564 GOSUB 2999 : REM lecture duree 

579 GOSUB 59699 : REM memorisation parametres 
589 IF X$S<2>"!* THEN GOTO 519 

599 I=i : RETURN 

790 REM OS ne vos dm ve mes ee me mn ete de ee me tn vue un en en eu ce en star 

795 REM Interpretation 

709 REM nu 0 Dao di De ne me os sù de 4 6 a seras en seu tn 2m ee tte 6 DU 

719 C1=9:C2=9:C3=98 

729 TI1=G:T2=9:T3=@ 

739 IF CI12>=NST(1) THEN 959 

759 Ci1=citi 

769 SOUND 1,V(1,1,C1),V(1,2,C1),V(1,3,C1) 
868 GOTO 739 

959 REM 

952 REM FIN DE PROGRAMME 

954 REM DESESLESSSRSSMER 


956 CLS:LOCATE 2,19 
958 PRINT"'DESIREZ-VOUS REENTENDRE LA MELODIE ?” 


769 

62 

964 

966 

768 

979 

1999 
1995 
1999 
1519 
1929 
1939 
19549 
1954 
1969 
1979 
1989 
1985 
1999 
1199 


16 2 


RE 
RE 
RE 


ir 
IF 
iF 
IF 
IF 
IF 
1F 


NU=NU+DR2Z:DR2=9 


1= 
RE 


IF R$S="0" 


R&<>"N" 


THEN 


LOCATE 2,14:PRINT" <0?) <N2" 
RF=INKEYS: IF R#="" THEN GOTO 9762 
THEN GOTO 7959 


GOTO 562 


PRINT:PRINT:PRINT"'AU REVOIR'":PRINT:PRINT 
END 


M ==========2================= 
LECTURE NOTE 

M =====2z==sz=ssss=szzszs===s=z=zz=z=s= 
KF=MIDS(CTS,1I,1) 


"M PROC. 


Xg="C" 
Xg="D" 
X$="E" 
Xg="F" 
X&="G" 
xXg="A" 
xg="B" 


It 
TURN 


THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
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2099 REM ========================2=2= 

2995 REM PROC. LECTURE DUREE 

2919 REM =========z=z=========S======= 

2929 X1F="" 

2939 XE=MIDE(CTS,1,1) 

2949 IF ASC(X#5)<=57 AND ASC(XH#)2=48 THEN X1#=X1 


H+XH:1I=1+1: GOTO 2939 

2959 D=VAL(X1#):1IF D=@8 THEN D=D9 

2955 IF DRL=1 THEN DRL=9: RETURN 

2969 IF X$="." THEN D=(D+D/2)/2:1=1+1 

2965 XB=MIDH(CTHS,1,1):1IF X$="&" THEN DR=1:1=1#1 
297@ RETURN 

59099 REM =================2========= 

5995 REM FROC. PARAMETRES 

5999 REM =========================== 

5919 NN=NN+1 

15929 V(VX, 1, NN) =ROUND (62599 / (449Xx(2°(0OC+(NU- 19) /12 
)))) 

5939 A=TEMPO/D : B=ROUND(AX9.8) : C=A-B 

5949 IF DR=1 THEN DR=S:V(VX,2,NN)=AI V(VX,S, NN) =VO: 
GOTO 5989 

5959 V(IVX,2,NN)=BIV(VX, 3, NN) =V0 

5969 NN=NN+1 

5978 VIVX, 1,NN)=298:V(VX,2,NN)=C: V(UVX, 3, NN)I= 9 
5989 RETURN 


Variation continue du volume 

La rupture dans le volume n’est pas très agréable pour l'oreille. Une 
variation plus progressive existe et le passage d’un niveau sonore à un autre 
s’exécutera soit CRESCENDO, ce qui correspond à une augmentation 
progressive du volume, soit DECRESCENDO, ou DIMINUENDO, diminu- 
tion progressive du volume. Les symboles “= ?” et “ = ? appelés 
“soufflets” indiquent sur la partition cette variation. Mais ils peuvent aussi 
être remplacés par les abréviations dim., cresc. 


Reprenons notre exemple : 





f 13 


11 
10 
P 9 
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Le diagramme montre la modulation du volume sonore. Vous allez 
devoir intervenir car la machine ne pourra traduire de manière automatique 
la croissance ou décroissance du volume sonore. 


La chaîne résultante est : 
V1$(1) = “L4 V9OCVI10D VI11EV12F V13GA BA GVI10F V9EE 
DD, C2!” 

La technique de traduction la plus efficace me semble être la suivante : 


— traduire la partition sans les nuances; 

— l'écouter et corriger les erreurs; 

— réaliser le graphique de variation du son; 

— grâce aux possibilités d’édition, porter les indicateurs de 
variation de volume dans les chaînes. 


Application 


Partition 13 — La Moldau : 
poème symphonique de la suite “Ma Patrie” de Bedrich Smetana 










































































































































































ES 


Cette œuvre est difficile à traduire par le fait des nombreuses 
modulations et liaisons. 
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Une indication nouvelle figure en haut de chaque portée : 
FONa 7 


signalant le choix d’une octave plus élevée comme seuil de départ. 
Remarquez que la note “SOL” de la mesure 10 n’est pas surlignée, ce qui 
signifie qu’elle est en octave «normale ». Si nous devions représenter les 
mesures 10 et 11 sans appliquer cette convention d’écriture, nous aurions : 











et pour la suite, nous sortirions de la portée, ce qui entraînerait des 
difficultés d'écriture des notes ainsi que de lecture. 


D’autres nouveautés apparaissent. Les signes IE avant la mesure 2 
et son correspondant après la mesure 9 ( :]| ). Même chose avec les 
mesures 10 ( {|| )et29( :|| ). Ces signes imposent à l'interprète de 


reprendre la mélodie. Dans le cas présent, si chaque nombre représente le 
numéro de la mesure : 


o o 


L NES SOS NI A0 427%, 2841 


L'interprète joue la 1, ensuite de la 2 jusqu’à la 9 ; là il rencontre le signe “à 
répéter” mais les/1° et/2° lui signalent que la reprise ira de 2 à 8 et se 
poursuivra à la 10. Pour la suite, il interprétera jusqu’à la mesure 27 qui le 
renvoie à la mesure 10 et à nouveau l’œuvre reprendra les mesures de 10 à 
27. La répétition ayant lieu, elle se poursuit à la mesure 28, dernière mesure 
de la partition. 


A nouveau les possibilités d'édition de votre machine vont faire merveille 
pour recopier les parties à interpréter ! 


Au travail. 


Adaptation du programme 


19 ? HHHHHHHHHHHHHHHHHHHHHHHEHHHHHHEH 
iS<? FROGRAMME 59 

29? La Moldau - SMETANA 

25 ? HHHHHHHHHHHHHHHHHHHHHHHHHHHHHEH 


124 DIM V(3,3,599),V1#(11) 


495 FEM Chaine musicale 

499 BEM + ee de de enlies mn mie cu de mie se cn de ce de 6m ve en se se sas ur ve 

419 VIS(1)="L4 VS>BS!'" 

411 VIH(2)="<ERHFSVIDGRAS VL1BBSVIZB. VI1S<SC.C. Ve} 
B.&B BS& VILILA.AAS G&RASRG V15GS8& RF.VILHFRHFS!" 
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412 VIS(3)="ERR8V9>BS!" 

413 V1S(4)="<ELHFSVIDGRLAS V1IBBSVI2B. V13<C.C. V9? 
B.LkB B8k VIIA.AAS GRABRG V13GS8& HF.VLIHF&#FS!" 

414 V1B(5)="ERREVISD)GE< CRDS ELRFS GRVI1ASB&VI2<CS 
VISD.&)AB<CS >B.&VI1BRS)ES AUBS <C&DS V12ER&R#FEGEA 
S'!'" 

415 VIS(6)="V1SB.RHFRAS G.RGV11GS G.LERGS V13B.BHF 
HFS G.BVI4ERGS VISB.RRFHFS B.BHFHFS V1SB.&BV11>BS 
1” 

416 VIS(7)="<ERHFOVIZ2HGLAS VISBBSB.U14<C.C. >B.&B 
VI2B8& A.AVISAS V14GRV12ASRV19G. V9HF.HFUSKFS!" 
417 VIS(S)="ERRSVIGDGS< CRDS ERHFS GEVILABBEV12<CS 
VISD.&)AR<CS DB.&V11BRS)ES ABS <C&DS VI2ER&RFEG&A 
g!° 

413 V1B(9)="V13E.LHFRAS G.LGV11G8 G.LERGS V13B.&HF 
HFS G.&VI4ERGS VISE.BHFHFS B.BHF#FS V1SB.&BV11)ES 
tn 

419 VIS(19)="<ERHFSVI2HGLAS VISBBSB.V14<C.C. >B.&B 
VI2B8& A. AVISAB VI14G&V1Z2ASEV1GG. V9RF.HFUSHFS!" 


429 VIi(11)="E.!" 


526 IF X#="V" THEN I1=1+1:DRL=1:GOSUB 2699: VO=D: 
VG=D:GOTO 519 


5989 VO=VG: RETURN 


PERFECTIONNONS LE PROGRAMME 
ET APPROFONDISSONS NOS CONNAISSANCES 


Les œuvres ci-après ont été spécialement adaptées pour votre machine. 
Leur auteur : Frank Wuyts est bien connu en tant que compositeur et 
interprète pour avoir travaillé avec des chanteurs tels que Pierre Vassiliu, 
Jacques Higelin et participé à ou dirigé des groupes comme Waterloo, 
Pazop, Wallace Collection, Arthur Conley, Four and More, Aksak 
Maboul..…. 


Quelques particularités d’écriture seront encore abordées, mais avant 
toute chose, nous devons généraliser le programme qui nous a servi 
jusqu’à présent. En effet, depuis l’introduction de la première série de 
notes, il s’est amplifié, en s’adaptant à l’écriture de plus en plus complexe 
des partitions. Son fonctionnement devient lourd et lent. Réécouter une 
nouvelle œuvre demande à chaque fois plusieurs minutes de patience. Dans 
la forme finale, nous utiliserons deux programmes : 


— le premier servira à la traduction de la chaîne des mesures en 
une table qui sera sauvegardée sur disquette (ou cassette) ; 


— le second permettra la relecture de ce fichier et conduira tout 
naturellement à l'interprétation des mélodies. 
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Programme de codification 


Nous ne reprendrons pas les diverses parties, la plupart d’entre elles 
ayant été analysées précédemment. Toutefois, la structure générale du 


programme mérite d’être rappelée. 


L'analyse du programme 


Initialisation 


Chaînes musicales 


Lecture des chaînes 
Traduction 

Lecture Durée 

Lecture Note 


Mémorisation des paramètres 








Interprétation 
Fin de programme 
Interprétation 


Sauvegarde 
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Ce programme étant introduit, lorsque vous désirez introduire une 
mélodie, vous devez modifier les lignes : 


200 


230 


270 


350-409 


VOX précisera le nombre de voix (1, 2 ou 3) 


phrase le nombre de «phrases» que le programme devra 
analyser. 


TEMPO indiquera la durée d’une mesure. Cette valeur 
demande un peu d’attention pour la déterminer. En général, 
au-dessus de la première mesure, le compositeur signale le 
nombre de noires qu’il faut exécuter en 1 minute. Par 
exemple, ( — 120). Une noire durera donc 60 sec/ 
120 = 0,05 sec. Si la mesure indique 4/4, 4 noires seront 
interprétées (le dénominateur précise la note repère — 4 
pour une noire — 8 pour une croche et le numérateur le 
nombre de temps que comporte une mesure.) La durée 
d'exécution sera ainsi de 4 X 0,5 = 2 secondes et le tempo 
devrait avoir la valeur 200. Malheureusement, il faut que 
cette valeur soit un multiple de la durée des notes 
interprétées. Si nous avons des noires et des croches dont les 
valeurs sont codées respectivement 4 et 8, il n’y a aucun 
problème car 200 est un multiple de ces deux nombres. Par 
contre, si nous avions une double croche (valeur 16), nous 
devrions prendre un multiple de 16, immédiatement infé- 
rieur (ou supérieur). De 0 à 200, 192 serait indiqué. 


T$ se rapportera au nom de l’œuvre avec éventuellement le 
nom de l’auteur. 


seront consacrés aux chaînes traductrices de la partition. La 
voix 1 sera attribuée aux variables V1$(1), V1$(2), … ; la 
voix 2 à V2$(1), V2$(2), … et la voix 3 à V3$(1), V3$(2). 


Vous disposez d’espace pour 19 “phrases” descriptives. 


Et c’est terminé, la seule nécessité est de se remémorer les codes de 
traduction d’une partition en chaîne musicale (un rappel en est présenté en 
fin d'ouvrage). 


L'œuvre, après avoir été traduite, est interprétée. Un menu s'offre 
finalement à vous, vous proposant soit de réécouter l’œuvre, soit de 
sauvegarder le code sous la forme d’un fichier sur cassette ou disquette 
selon que votre machine dispose de l’un ou de l’autre, soit encore d’en 
terminer avec l’utilisation du programme. Si vous choisissez l’option de 
sauvegarde, vous devrez attribuer un nom au fichier. L'ordinateur ajoutera 
le message “.NOT” ce qui vous permettra de reconnaître les fichiers notes 
des autres fichiers. 
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100 ? HHHHHHHHHHHHHHHHHHHHHHHHHRHHEHR 


119 ” PROGRAMME 51 

129 ? CODIFICATION 

1359 © HHHHHHHHHHHHRHHHHHHHHHRHHHHHHE 
LE ne pr re Se 
so 7 ME Iinitialisation 

149 DLL nm ne ou me teen ou Dé en lun mn ont mi nes ee Dei de 2e di je ui sn ce 


179 MODE 1 

139 DEFINT A-Z 

199 DIM V(35,4,659),V1H(16),V2#(16),V3#{(l1é6) 
248 VOX=3 : PHRASE=16 

219 NN=Q : REM no ler signe musical 

Z29 OQC=6: REM octave de depart 

2539 TEMPFO=129 

24Q I=] : REM premier caract de la chaine 
259 VO=IZ :VG=V0Q :REM volume initial 

269 DR?P=9 : REM absence d’alteration 

LAID TEST pe ut esssist esse ss ss... 

289 CLS 

274 L=LEN(TH) I LX=INT((49-L)/2) 

39G LOCATE LX,I1S:FRINT T& 

319 LOCATE LX,11:FRINT STRINGH(L, "-") 


SORINTI SSSR ER-SSAUN RER = den or 

3359. Chaines musicales 

RU ÈS OS 2 moe 2 2 mm ce dote me Mise Dire er eo Ne 

359 ? VOIX 1 

369 ? 

S79 VOIX 2 

599 

399? =VOIX.:S 

39% ? 

412 ? pe mme con ne ep me eue ons mn + ee ven + 90e. oe ous queen mie annee ces les dus, on 

426 ? lecture des chaines 

4359 Do en ms ce de en en eu me meme en en ep mn ee on en en où © it ae. de se ee 

44@ FOR V=1 TO VOX 

459 FRINT:PRINT"'VOIX NO "3 Vi: FRINT 
464 FOR NC=1 TO FHRASE 

479 FRINT TAB(S);"ligne no ":NC 
459 IF V=1i THEN CT#S=VIiH (NC): VX=I 
476 IF V=2 THEN CTS=V2S$ (NC): VX=2 
5G9 IF V=3 THEN CTS=V35# (NC): VX=3S 
519 GOSUB 1759: REM vers traduction 
529 NEXT NC 

539 NST (V) =NN: NN=S 


54S NEXT V 
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5936 CLS 

599 LOCATE LX,19: PRINT T#& 

69@ LOCATE LX,;,11:FRINT STRINGS(L,"-") 

619 RELEASE I:RELEASE 2:RELEASE 4 

62 Ci=@:C2=@:C5=6:DK(1)=S:DK(2)=6: DK(S) = 

639 Ti1=9:T2=9:7153=9 

540 IF VOX=1 THEN GOTO 659 ELSE IF VOX=2 THEN GOTO 
678 ELSE GOTOG 7959 

8436 IF C1>=NST(1) THEN GOTO 9729 

663 GOSTO 749 

67% IF Cl+CZ2)>=NST(L)INST(2) THEN GOTO 929 

639 TX=MIN(TI,T2Z) 

679 IF TX=T1 THEN GOTO 749 ELSE GOTO 789 

7H IF C1+C2+C3>=NST(1)+NST(2) +NST(3) THEN 929 


719 TX=MIN(TI,T2,T3) 

729 IF TX=T2 THEN GOTO 789 

739 IF TX=T3 THEN GOTO 849 

745 ci=Ci+1 

7sa IF DK(1)=1 THEN DK(1)=9:C1=C1-1:SOUND 1,1,C 
(1),8:TI1=T14C(1):GOTO 899 

769 IF V(1,4,C1)=9 THEN B(1)=ROUND(Vi1,2,C1)X9. 


B):C(1)=V(1,2,C1)-B(1):SOUND 1,V(1,1,C1),B(1),V(1, 
33C1):TI=TI+B(1): DK(1)=1:GOTO 899 


779 SOUND- AVE PI, VI ,2,C1) ,V(L SCHIIT 
| T1 +Vi1 ,2,CHF)10010 899 

789 c2=C2+1 

779 IF DK(Z)=1 THEN DK(2)=@:C2=C2-1:SOUND 2,1,C 
({2),4:T2=T2+C(2):GOTO 899 

699 IF Vi2,4,C2)=9 THEN B(2)=ROUND(V(2,2,C2)K9. 


8):C(2)=V(2,2,C2)-B(2):SOUND 2,V(2,1,C2),B(2),V(2, 
3,C2):T2=T2+4B(2):DK(2)=1:GOTO 899 

319 SOUND 2, Vt2,1,0C2),V(2,2,C2);Vi2,3;C2) 
TSST2+V(2,2,C2) 

GOTO 879 

Cs=csri 

IF DK(3)=1 THEN DK(3)=9:C3=C3-1: SOUND 4,1,C 
(3),G:T3=T3+C (3): GOTO 8979 

86@ IF V(3,4,C3)=9 THEN B(3)=ROUND(V(3,2,C3) Kk@. 
8):C(3)=V(3,2,C3)-B(3):SOUND 4,V(3,1,C3),B(3),V(S, 
3,C3):T3=T3+B(3):DK(3)=1:GOTO 899 

874 SOUND 4,V13,1,C3),Vt3,2,C3),V(3,3,C3) 

859 3=T3+V(3,2,C3) 


0) 
s C4 PJ 


= 0 Gi 0) 
L 
o © à @ 
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95 
769 
979 
sea 
999 
199 
1919 
192 
1439 
1949 
1859 
136€ 
1879 
195G 
1899 
1166 
1119 
1129 
11356 
1145 
1159 
1159 
117S 
1159 
1155 
123% 
zZi@ 
122€ 
1236 
1249 
1254 
17269 
127 
1289 
1259 
1559 
13519 
1329 
1339 
1349 


LA D 72 
5 SE à 
LE V 


FRIN 


PRIN 
PFRI 
PRI 
PRI 
PRI 
FRI 
PRI 
PRI 
PRI 


RE=INKEYS:IF R$="" 


sf 
LT 
IF 
CES 


GXx=1 THEN GC 
Gx=Zz THEN GO 
GX=3 THEN GG 


TE LS 


10 65% 
T0 479 
10 759 


DE PROGRAMME 


TOO KXKKKKKKAKXAKKKRKKKKKEXKXKKKKX" 
PRIE FX 


NESÈARE v 
NT" 
NT" 
NT” 
MT 
NT” 
NT" 
NES 


K XX % x KO % x 


MENU 


% 

PE 
x» 
x 


12 -ECOÛUTE MELODIE x. 
<2? SAUVEGARDE FICHIER x" 


<3> 


FIN 


x” 
x" 
x" 


NT” KKKKXKKAKEEEKEEEKEEREKEKKEXIEXEK 


R="1" 
R$="2" 


R&<>"3" 


THEN 


GOTG 


THEN GOTO 1659 


556 


THEN GOSUB 151@:GOT0 72G 
THEN GOTO 1989 


LOCATE 19,19:PRINT"AU REVOIR," 
LOCATE 1,29 


END 


, 


IF 
FF 
LF 
Le 
En a 
IF 
LÉ 


LECTURE NOTE 


XS=MIDF(CTF,1,1) 


FROC. 


K="C" 
X&="D" 
Kÿ="E" 
XŒ="F" 
K£="G" 
*S="A" 
K#="p" 


THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 


NU=NU+DRZ: DR2=S 


I=I 
RET 


, 


L 


*X1F 


LE. 
URN 


XH=MIDH(CTS,1,1) 
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155@ IF ASC(X#)<=57 AND ASC(XF)>=48 THEN X1%=X1 
B+XS:I=I1+1:GOTO 1549 

1368 D=VAL(XIÆ):IF D=@ THEN D=D9 

1379 IF DRL=1i THEN DRL=9:RETURN 

1389 IF Xÿ="." THEN D=(D+D/2)/2:1=1+1 

1399 XF=-MIDH(CTHS,1,1):1IF X$="&" THEN DR=1:1=I1+1 
1466 RETURN 

1410 ” S===========E============-—-—- 

1429 ? PROC. PFARAMETRES 

1459 ? SES=SEES=SESE============-—-— 

1449 NN=NN#+1 

1459 V (VX, 1, NN) =ROUND (62599/ (449X (2° (0C+(NU-19)/12 
+12 

1469 A=TEMPO/D 

1479 IF DR=1 THEN DR=9:V(VX,4,NN)=1 ELSE VEVX, 43 NN 
)=9 

1489 V(VX,2,NN)=A: VEUX, 3, NN) =VO 

1498 VO=VS 

1599 RETURN 

1519 ? ==========s=s====SSSSSSSSSSS=e== 

1529 7 Frocedure SAUVEGARDE 

183: SE==SS=====SSSSS==S===S=======—=—=—— 

1549 CLS 

1559 LOCATE 1,19 

1569 INPUT "NOM DU FICHIER :"35N& 

1579 N&=NHS+".NOT" 

1529 OPENOUT N# 

1599 WRITE #9,0C, TEMPO, VOX, T# 

1668 FOR I=1i TO 3 

1619 WRITE #9,NST(I) 

1629 NEXT I 

1639 FOR I1=1 TO 3 


1649 FOR J=1 TO 4 

1659 FOR K=1 TO NST(I) 
1669 WRITE R9,V(I,J,K) 
1679 NEXT K 

1689 MNEXT J 


1679 NEXT I 

1798 CLOSEOUT 

1719 RETURN 

1779 D un 0 6 en nement en ins où es = met en ce ce un © 
12359 Traduction 

PAS nn AR NT TT TSI 
1759 XS=MIDFS(CTH,1,1) 

1769 IF X$="!" THEN GOTO 1589 

1774 IF X$=" " THEN 1=1+1:GO0OTG 1559 
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1789 IF X#="L" THEN 1=1+1:DRL=1:GOSUB 1599:D@=D: 
GOTO 1754 

1779 IF X#S="V0" THEN I=1+1:DR1=1: GOSUE 1399:VO0=D: 
VG=D:GOTO 1759 

1599 IF XH="<" THEN OC=0C+1:1=1+1:GOTO 1839 
1519 iF X$="}" THEN OC=0C-1:1=1+1:GOTO 15859 
1829 IF X#="R" THEN VO=9:DR=1:1=1+1:GOTO 1869 
155 IF X$="#H" THEN DR2=1:1=1+1 

13548 IF X#="-" THEN DR2=-1:1=1+1 

1856 GOSUB 1169 : REM lecture note 

1869 GOSUE 1369 REM lecture duree 

1579 GOSUB 1419 : REM memorisation parametres 
1889 IF XE<)>"!" THEN GOTO 1759 

1879 1=1 : RETURN 


Programme de lecture des fichiers 


Sa structure est des plus simple 


L'analyse du programme 


Fin de programme 






















Il nous est demandé le nom du fichier à lire, en général, un mot rappelant 
le titre de la mélodie. Un menu s’affiche à la fin de l’interprétation vous 
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proposant soit de réécouter l’œuvre, soit de la sauvegarder (ce sera 
l’occasion de lui donner un autre nom ou encore de réaliser une copie du 
fichier pour un autre utilisateur), soit de quitter le programme. 


100 ? HHRHHHHHHHHHHHHHHHAHHHHHHHHHHHHHE 


119 * FROGRAMME 52 

i29 : LECTURE FICHIER NOTES 
130 ? HRHHHHHHHHHHHHHHHHHHHHHANHHHHHHHH 
14Q REM uen 

159 REM  Initialisation 

159 REM ------------------------ 


17@ MODE 1 

159 DEFINT A-Z 

17G Di V(35,4,799) 

298 NN=G : REM no ler signe musical 

219 CES 

229 LOCATE 1,5 

239 PRINT” KKKKKKEKXXHI XIE XNN HN INX XIE XX 


249 FRINT"  * or 
259 PRINT" OX  INTERPFRETATION +. 
269 FRINT" X  ============== ed 
279 PRINT + +" 
209 PRIÈNE. + x" 
EFA FRINT"  KXKKKAXEKEKKKEXEKXIERIXINIERRX 
3949 FOR T=1 TO 2999 : NEXT T 

319 GOSURB 1959 

RE RE 

359 REM Interpretation 

D ER ee 

399 CLS 


333 L=LEN(TS) :LX=INT((49-L) /2) 

369 LOCATE LX,1S: PRINT T5 

379 LOCATE LX,11:FRINT STRINGS(L,"-") 

35 C1=G:C2=6:CS=6:DK(1)=9: DK (2) =9: DK(3) =9 

379 Ti=<G:iT2=G:T353=9 

408 IF C1i+C2+C3>=NST(1) +NST(2) +NST(3) THEN 699 


416 TX=MIN(TI1,T2,73) 
429 IF TX=T2 THEN GOTO 469 
39 1F TX=T3 THEN GOTO 549 
449 Ci=cit+ti 
452 IF DK(i)=1 THEN DK(1)=9:C1=C1-1:SOUND 1,1, 
C(11,9:T1=T1+C(1):GOT0 599 
46 IF Vi1,4,C1)=9 THEN B(1)=ROUND(V(1,2,C1)XK6. 


S8):Ct1I=V(1,2,C1)-BCI):SOUND 4, Vt1,1,C1),Bt1),Vt1, 
3,C1):T1=T1+B(1):DK(1)=1:GOTO 599 
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479 SOUND 1:,06t HICLI UE 2 CII Vi ti) 
1 =T1 +V(1 ,2,C1):GOTO 599 

48@ C2=C2+1 

499 IF DK(2)=1 THEN DK(2)=9:C2=C2-1:SOUND 2,1,C 
(2),@:T2=T2+C(2):GOTO 599 

509 IF V(2,4,C2)=9 THEN B(2)=ROUND(V(2,2,C2)K9. 


8):C(2)=V(2,2,C2)-B(2):SOUND 2,V(2,1,C2),B(2),V(2, 
3,C2):T2=T2+B(2):DK(Z2)=1:GOTO0 599 


519 SOUNDS VIRE CA) Vi2,2,C2),Vt2,3,C2) 

529 T2=T2+V(2,2,C2) 

539 GOTO 596 

549 C3=C3+1 

559 IF DK(3)=1 THEN DK(3)=9:C3=C3-1:SOUND 4,1,C 
(3),@:T3=T3+C(3) :GOTO 599 

569 IF V(3,4,C3)=9 THEN B(3)=ROUND(V(3,2,C3) X9. 


8):C(3)=V(3,2,C3) -B(3):SOUND 4,V(3,1,C3),B(3),V(3, 
3,C3):T3=T3+B(3):DK(3)=1: GOTO 599 


579 SOUND 4,V13,1,C3),V(3,2,C3),Vt3,3,C3) 
589 T3=T3+V(3,2,C3) 

574 GOTO 490 

689 REM 

619 REM FIN DE PROGRAMME 

628 REM =======2=22222== 

639 CLS 

648 LOCATE 1,5 

658 PRINT" XXE MIE EEE EX 
668 PRINT" + x" 
678 PRINT" %X MENU x" 
689 PRINT" %X ==== x" 
698 PRINT" + x" 
7@@ PRINT" %X  <1> ECOUTE MELODIE x" 
719 PRINT" %X  <2> SAUVEGARDE FICHIER +x" 
729 PRINT" +% x" 
739 PRINT" %X  <3> FIN x" 
749 PRINT" + x" 


759 PRINT"  KKKEXANEEEAEEKKEEEXEKKEEKERKKX 
76 R#S=INKEYS:IF R$="" THEN GOTG 769 

779 IF R#="1" THEN GOTO 35329 

789 IF R$="Z" THEN GOSUB G49:GO0T0 699 

799 IF R$S<>"3" THEN GOTO 769 

sg CLS 

519 LOCATE 19,19S:PRINT"AU REVOIR. " 

S24 LOCATE 1,29 

339 END 


L'INTERPRÉTATION MUSICALE | 157 


379 CLS 
g LOCATE I, 18 

SG INPUT "NOM DU FICHIER :"3N% 
9 NF=NS+".NOT" 

G OFENOUT N$ 

9 WPITE #9,0C, TEMPO, VOX, TS 

9 FOR I=1 TO 3 

CG] WRITE #7,NST(I) 

959 NEXT I 

C69 FOR I=1 TO 3 


57 FOR J=1 TO 4 

TS FOR K=1 TO NST(1) 

?9@ WRITE #9,V(I,J,K) 
1489 NEXT K 

1918 NEXT J 


1929 MEXT I 

1959 CLOSEGUT 

1949 RETURN 

1JS 7 =RRSSSS=S=====S==S====E=========-=== 
19698 ? Frocedure LECTURE FICHIER 

1979 ? =======s======================== 
1989 CLS 

1679 LOCATE S,19 

1199 INPUT "NOM DE LA MELODIE : "sN1$ 
1116 NS=N1$+". NOT" 

1129 OPENIN N& 

1136 INPUT #9,0C, TEMPO, VOX, T# 

1149 FOR I1=1 10 5 

1159 INPUT H#9,NST(I) 

1169 NEXT I 

1179 FOR I=1 TO 3 


1189 FOR J=1 TO 4 

1199 FOR K=1 TO NST(I) 
1299 INPUT #9,V(I,J,K) 
1219 NEXT K 

1229 NEXT J 


1259 NEXT I 
1249 CLOSEIN 
125€ RETURN 
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Œuvres musicales 


Partition 14 — Brijou de Frank Wuyts 
(d = 150) & 





































































































































































































































































































L'INTERPRÉTATION MUSICALE | 159 


Particularités 


Les notes écrites avec un point en-dessous ou au-dessus, doivent être 
jouées « STACCATO », c’est-à-dire qu’elles doivent se détacher nettement 
l’une de l’autre. Une expression musicale parle même de les «piquer ». 


Par exemple : 





Nous traduirons ces expressions en considérant que : 
a} est identique au jeu de "à ed 
la mesure ci-dessus se traduira par : 
«L16 ERAR<DR>BRDRGRBR » 


La ligne courbe sur ou sous une série de notes signifie que celles-ci 
doivent être liées entre elles. En fait, chacune correspond à un son d’une 
durée égale à la longueur de la note. Le terme musical correspondant à ce 
signe est « LEGATO » (liaison). Nous l’avons déjà abordé antérieurement, 
pour rappel, nous utilisons le signe « & ». 


Le signe Y à l’intérieur d’une mesure, signifie que le contenu de la 


mesure est identique à celui de la mesure précédente. 
DAL SEGNO. Cette expression renvoie au signe 


Par exemple : 


$ DAL SEGNO 
A. -B dE ND: | -E: À :# 


entraînera le déroulement suivant : 
ABCDBCDEF 


Au niveau de la mélodie, si nous considérons les numéros des mesures, 
nous devrons suivre la progression : 


3456 
7 8910 11 12 13 14 3456 
3456 7 8910 11 12 13 14 


[15 16 17 18 19] 


Les phrases types seront : 


Q 


3456 
7 89 10 11 12 13 14 
15 16 17 18 19 


160 | AMSTRAD EN MUSIQUE 


Adaptation du programme 


299 VOX=3 : PHRASE=9 
2359 TEMPO=176 
278 TH="BRIJOU de Frank WUYTS" 


329 :REMSESSSSRRRSRS 

3359 REM Chaine musicale 

SAIOTREM SRE Re en iee 

359 ViHS(1)="L4 RRRR RRRR!'" 

351 V1F(2)=V1H(1) 

352 V1#(3)="L1é RSERAR<DR>BRDRGRBR RSERGREBRARFRGRA 

R LS ES4ER&D&D&D&D)B& BRGLA&B&AFEG&AS ! ” 

353 VIHS(4)=VI1H(3) 

354 ViF(5)="Lié RS ERARARGRDRBRER RSGRARERARFRGRAR 
LE<C)ALERABLEERGED Lié RS{CR>BR<ER> ARBR<CRDDR LS E 
L'BLSCRARGAGDEGÉ ERGEGRELGLELAGG ALERDRELERLBEGRER& 
D4RERC&C&LERDRE : ” 

395 ViF(6)=V1&(5S) 

356 VIH(7)=V1i#8(5) 

357 ViIS(S)=V1S(5) 

358 VIH(7)="LS E4ERD&DD&DU) BE BRGLALBLRARGF SGRLAGSEGE 

&D&DDDEB BLISGRARBRARFRGRA& A1!” 

359 V2#(1)="L4 RRRR RRRR'!" 

T6 V2rH(2)=V2#(1) 

361 AF="LSCAC>BLBBRBRGE GLERF &GRF &DECRE < * 

362 V2H(3)="L4 RRRR RRRR'"'+AS+r"!" 

363 VEH(4)=V2H(5) 

764 V2#i5)="L4 RRRR RRRR RRRR RRRR RRRR RRRR RRRR 
RRRR!" 

65 V2#(6)=V02$(3) 

5é6é V2S(7)=V2S(5) 

367 VEH(S)=V2#(5) 

368 VEF(9)=AH+"LSELCAC)BRBBEBR< GEGL 1 SERFRGRFRCRDRÉHC 
S&HC1!" 

369 B$="Llé ER>AR<CRERDR>GRBREDR > BRERFGRBRARDRFRAR 
gn 

379 VSS(1)=" MER Sr "LA" 

371 VS3F(2)=BS+" 1!" 

SZ2-NSF(SISESEBEENE 

V52(6)=V03$(35) 


j 
D 
4 


374 V356(5)=EH+EH+EHS+rEH+" 1" 

375 VSF(6)=V35(3) 

278 V3BI7)=VS#(5) 

TP? V356(S)=V3#(5) 

378 VIF(F) =BB+r" LI6ER>AR<CRERDR>GRBRLSER E?LI16FRGSA 
S&Al!" 
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Partition 15 — Rondes 
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Particularités 


La partition est composée de nombreuses reprises, ce qui nous rend la 
tâche aisée. 


ATTENTION à la troisième voix, elle est essentiellement formée de deux 
chaînes A$ et B$ que nous avons définies à la ligne 350. 


Adaptation du programme 


299 VOGX=3:FHRASE=12 
239 TEMPFO=29@ 


279 TF="RONDES de Frank WUYTS." 


329 REM =. ee vs ven on os one en ee © 6 em en ee © = ee esse = 0 me 

336 REM Chaine musicale 

DD RER RE SET DS ee ES Pt 

359 AF="LS C<{C>>-A4<-A)E<E4E>B4<B": BF="L4>B<BB" 
351 VI1HS(1)="L2 RRR RRR ERR RKRR!'" 

352 ViIS(2)="L2 RRR RRR RRR RRR!'" 

353 V1H(3)="L4 <GS<C)>B-B-ALSF-AF GL4<C>B-B-A&-ASE&- 
G2{C>B-B-ALSF-AF GLA4<C)>B-F-A&-A8R&R-ATI" 

54 VI1H(4)=V1H(3) 

5S VIH(5)="LA< H#DSHFBES HDSHF-B&-BS HDSHFSAASGS #F 
E#D8:>!" 

56 VIF(6)=V1H(5) 

557 VI$(7)=V1S(2) 

358 VI1H(3)=V1#(3) 

357 VIF(7)=V1(3) 

3569 V1H(19)=V1H(5) 

351 VIHS(11)=V1H(5) 

52 VIFS(12)="LS<HDHFA4B4B HDHF-B&-B48&-BS&--BZ&-B42!" 


> 


WU 0) W Ci 


364 V2#(1)="L2 RRR RRR RRR RRR!" 

565 V2#(2)="L4 <-E&-ESE-EDLS >-A-B<-D L4D&DS-ED-DL 
8 )>-A-B<-D L4-E&-ESE-EDLS >-A-B<-D L4D&DS-ED-DLS ?} 
“ARBRE 

356 VrR(3)="L4 <-E&-ESE-EDLS >-A-EB<-D L4D&DS-ED-DL 
8 >-A-B<-D L4-E&-ESE-EDLS8 >-A-B<-D L4DS8-ED-DC&CS&C 
_— 

367 Vr2F(4)=V2S(3) 

3683 V2#(5)="BS<HDA4HFAHFS >BS<RD4FARFS > BS<HDSE4ES# 
DS KCES>B4BS!" 

367 V26(6)=V2F(5) 

379 V2Z(7)=V2#(2) 

371 V2F(S)=V2#(3) 
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i 
Les 


{7)=V2#(3) 

(19)=V2%(5) 

VIB(i1)=V2%{5) 

VrH(12)="LSDEHDARFIFS >B<HDFRF4RFSRF28RF42!" 


VZBS(L1)=A+ AG AGSIAGSI"!" 
V3&(2)=V3%(1) 
VIp{3)=ASrIAHE+ABF'LECÉCT)LA-AS-AI-A2R-A<!" 
V3 (4)=V5%(53) 
VSF(5)=BE+BF+BF1"L4)> BB!" 
VIHS(6)=V5%(5) 
V3#(7)=V53$(2) 
VSH(8)=V3%(3) 
V35#6(7)=V3#(5) 
V35#6(16)=V3F(5) 
VIF(11)=V35(5S) 
V3H(12)=B$+"3EB4<B2&RB28&B4!" 


*- 
4! 
V2 


j id Gi L 
NON NI SJ 
NEUMEQTH 


vJ 


A “U 0) 


CA (A C4 CA C4 C4 Ci ON à 


C4 
01 0 0 01 0) 0) 0) Où ON 
SH UN + 


el 
un 


ti Li 
N © 


La) 


Partition 16 — C’est l’été 
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Particularités 


O Pour fixer la valeur du tempo, nous avons dû tenir compte de plusieurs 
facteurs : 


— la durée d’une mesure, voire entre 3 et 4 temps, et nous avons 
choisi 4 temps comme base ; 

— la durée minimale d’une note est la croche (1/8), le tempo devra 
être un multiple de 8; ; 


— le compositeur indique = 185, ce qui correspondrait 
normalement à un tempo de 129,72 (60/85 * 4) 128 est la valeur 
la mieux adaptée au programme. 


O Lors de la reprise de parties d’une œuvre, certaines ne doivent pas être 
rejouées, c’est à cela que sert le signe € (coda). Ce signe est ignoré tant 
que l’expression «D ACAPO» n’est pas rencontrée. À ce moment, le 
morceau est rejoué depuis le début jusqu’au signe € qui renvoie 
l'exécution à la suite du morceau où se trouve l’expression « CODA ». 


Exemple : o DACAPO  CODA 
AB) CJ:D)E | F | G || 


entraînera l’exécution successive de : 
ABCDEABCFG 


D Un facteur correctif a été appelé au volume de chacune des voix, 
l’accompagnement plus grave étant dominé par les deux autres. Nous avons 
fixé à 10 le volume pour les deux premières et à 12 la dernière. 


Adaptation du programme 


298 VOX=3:PHRASE=19 


239 TEMPO=128 
279 T#="C'EST L'ETE de Frank WUYTS." 


DD EN D mm ee 

339 FEM Chaine musicale 

DAS REM en re ee mine 

359 V1H(1)="V1GLS G-AGFE4FG& GAF4D4CD A4AGAGEZ28RE4R 
EE EFED&D2 DCDE AZ&AZ <C)>-BFACARCR RA4TASERLEZ& EZ&E 
e 

351 VIHS(2)="LA4ARAR ACCRSIARS GRSES&ERESRS R2R2!" 
352 VIiF(3)=Vi1#(2) 

353 Vi$(4)="LSEDCDE&D2 RCDF&F4D4 RDEASAZ <C>AGAGFEF 
EDCD&DZ RCDF&F4D4!" 
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3554 V1H(5)="LSRSDEASRAZ <C>AGAGFEF <EDCDC>-EBA-E AG 
FGFEDE D2R2 R2R2 R2R2 R2R2!" 

355 VIS(6)=V1#(1) 

376 VIi&(7)=V15(2) 

3557 VIS(S)=V1#(2) 

538 VIS(9)=V1#(4) 

357 VIF{19)="DZRZ R2R2 LSG-AGFE28&EZ28&E2!" 

369 ? HHHHRHHHHRHHHHHHRHHHHHHHHHHHHHHRH 

361 V2#H(1)="VIQLZ DC EA <C&CAR C2&RCA48RCSCS LSCDC>- 
B&-E2 A2 F2UFZ LSFG-B<C)F4RFSRS R4<CS>BSEB2RB28&B2Z*< 
"” 

362 V2#(2)="L4FRER DGRSFRS DRSCS&EC&RCSRS RZR2!'" 

5635 V2$(3)=V2$(2) 

364 V25(4)="L2 -B&-B ARA GRG FRF G&G F&F!" 

365 V2#(5)="L2ERLE C&C LSGFEFEDCD C>-BA-BAGFG AZR2 
L2RR RR RR£!" 

VrH(6)=V2#(1) 

V2#(7)=V2#(2) 

V28(8)=V2$(2) 

VEH(7)=V2#(4) 


WA HW C 
, OM © GC 
NJ OÙ NV Q@ 


A Li 
a 


7R VEIG(19)=")}AZ2R2Z R2RE <DA4C4>-B2&-B28&-E2<!" 
TF1 TO OHHHHHHHHHHHHHHHHHHHHAHHHHHHHHRHE 
372 V3H(1)="V12>>DA4&DS<LSD> DGA<SC? DA4&D<D>DGALC F4F 
E4E C>G<CDEDCD > B4&-B<-BF>-B<F-B >A2Z F4&F<FC2F<CF 
>G42G<-B-B4D>G DZ&D4&DS8DS B D£C>D£E>AGF<<!" 
573 VIF(2)="C4RS>)FE<<CARSI>IFS <<CA4DS>>F8R8<<CA22F 
8 <A4)FSE BS&54RBS2F6 LSBF<CHFSEZAGF<S!" 
374 VEIF(S)=V2(2) 
375 FRERE Ré pee <-BD>G<D-B >-B46B<-BF2-B<F-B D 


LB 
œ 
Ü 
PA 

5 


ADA{D >F4RF£FC>F<CF >2G48&G<-B>2D>G<D<-B >-B4 
RBR=Dr?-B<F-pl" 

376 V3H(5)="LSDA4&D{D}ALDASD >FARFEFCIFSCF 22G2&G2 - 

B2&-BZ D4&D<D>D4&D<D >D4&D<D>DGASC ?D4&D<D>DGA<C ? 

GA<C>DGA<CD<!" 

377 VS3B(6)=V3#(1) 


378 VS5F{7)=V3%(2) 
379 V36(8)=V3%(2) 
229 V3 (F)=05H(4) 
351 V3(19)=">>D4&DS<D4DS8<DS >DA4&DS<DS>DSGSAS<CS ? 


D4-A4D2&D2&D2!" 
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Partition 17 — Petite Olga 
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Particularités 


ATTENTION à l’altération présente à la clé ; toutes les notes, si (B) seront 
précédées du signe sauf si le signe bécarre (b) leur est associé. 


Adaptation du programme 
299 VOX=3 : PHRASE=IIL 
239 TEMFO=169 
279 T$="PETITE OLGA de Frank WUYTS." 


S29 REM --------mmmmmmmmmmmmmmn 
339 REM Chaine musicale 

340 REM ---=---rmRemep=rer-rrmemr 

3S9 ViS(1)="V12L8<C)A!" 

SS1i VIS(2)æ="LEe< C4) A4 CDRDCR CDACCFED C48&C>F&FAGA E 
FGF&RFA4<CDA <C4)A4<CDRDCR C>A<CFED CA48RC>FLRFAGA EFGF 
&F4<C)>A!" 

352 VIS(3)="LS-B4GA4<CCRC)AR& AF<CDA -B4G4<CCRC>F& F 
AsFESEFGF& F4EFAAGFR FA4RFEREFGA ! " 

353 VisS(4)="LSFFEFRA<C)A!" 

354 VIS(S)=V1#(2) 

355 ViS(é)=V1S(3) 
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356 ViS(7)="LSFFEFRARS<C) EF<C)DEREF<C)ER EF<C2>EEF< 
C)DER EF<C)A&A2Z R2RA4R8S<C) EF<C)EREF<C)ER EF<C)EEF<C 
)E& EF<C)ARAZ R2R4RS<C)> EF<C>EREF<C)ER EF<C>EEF<C> 
E& EF<C)>A&A2 R2R4RS<C)!" 

357 V1S(8)="LOEF<C)EREF<C>-B& -BDE-B&K-BDECR& CDAC&C 
DAG& G>-B<CG&G)>-B<C4 F2&F2 R2ZR2 R2R2 R2ZR4<C)A!" 
358 VIS(9)="L8<C4)>A4<CD&DCR C>A<CFED C48RC)FRFAGA E 
FGF&F4<C)A!" 

359 VIS(1S)=V1S(9) 

369 ViS(11)="L8-B4G4CCCRC>AR AF<CIA L4-BG<C8CSR4 R 
2)F2&F28&F2&F2&F2!" 

TSé1 ? HHHHHHHHHHHHHHHHHHHHHHHHHAHMAHHHHHEH 

362 V2#(1)="V19R4 !" 

363 V2$#(2)="L8)>F<CDCECDC >F<CDCED >F<CDCECDC >F<CD 
CECDC >F<CDCECDC >F<CDCED >F<CDCECDC >F<CDCECDC!" 
364 V2$(3)m" DE<C)>-B<CIE<C)>-B<C DFECDACC >E<C>-B<C 
)E<C)>-B<C >F<CDCECDC >F<CDCECDC >F<CDCECDC'!" 

365 V2#(4)="L8)>F<CDCECDC!" 

366 V2$8(5)=V2$(2) 

367 V28(6)=V28(3) 

368 V2#(7)="L8)>F<CDCECDC L2)A28RA2 B28& B2 <C28&C2 R 
8)>CS8FS8A8RAZ D28&D2 EZ2RE2F28&F2 RSCSFS AS&k AZ A2&A2 
B2& B2 <C28&C2 R8)>CS8FSA8&A2!" 

369 V2$#(8)="LEFA4LRFEFERFARS GA4LGEGERGARS A4LABABGRLAG 
R4 <C4RCBCSRCAR >F<CDCECDC >F<CDCECDC >F<CDCECDC 
>F<CDCECDC!" 

379 V28(9)="F2E2 LSD4LRDAGF F2E2 D2CCFC'!'" 

371 V2$8(19)=V28(9) 

372 V2$(11)="LSE4CAEEREFR FCFC E4C4EER4 R2 D2&D28&D 
2&D2&D2!" 

373 * HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHE 

374 VTS(1)m"U12R4D!" 

375 V3S(2)=" F2&F4R4 F2R4 F28RF4R4 F2&F4R4 F2&F4R4 
F2R4 F28&F4R4 F28F4R4!" 

376 V3S(3)="LAIERER FR ERER F2RFR F28&FR F2&FR!" 

377 V3S(4)="F2RF4R4!" 

37A VIS (S)=03S(2) 

379 V3$(6)=0V3S(3) 

389 V3(7)="F28RF4R4 AALABABSRLAZ BAR BS B3& B2 <C4ar 
CSCS&kCARCSECS >F28F2 DA&DSDSRD2 E4RESESREZ F48RFSFSR 
F4RFS8<CS >F28RF2 AA4LASASRAZ B4R BS BS& B2 <C48RCSC8 
&CAaRCSCS >F28&F2!" 

381 VSS(8)="Le-B4R-B-B&R-B4R4 <CA4RCCRCAIRS D4LDD&DAR 
4 E4REERE4RS4 )>F<CFGRG2 )FÉCFGRG2> F<CFGRG2 >FCCFGR& 
G27!" 

382 V3S(9)="LS)FCCFGORGZ >F<CFG&G4 >F<CFGL&G2 >F<CFG 
&G2!" 

383 VSS(19)=03S(9) 

384 V3S(11)="C2G2 F4<C4) C2G2 R2 )>-B2R-B28&-B28R-B28& 
"Sr 
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Partition 18 — Le magicien 
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Particularités 


C’est de très loin l’œuvre la plus difficile à traduire de cet ouvrage, 
quantité importante de notes, nombreuses altérations et surtout présence 
d’une structure particulière, le «quadriolet ». 


(mesures 12, 15, ...) 


1222 


nn 
4 


où 4 croches doivent être interprétées avec une durée égale au jeu de trois 
croches. Arithmétiquement, cela revient à dire que chaque note doit 
durer : 


1,5/4 ou _3_: 4 ou encore _3_ 
2 8 
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La solution est d’utiliser une structure du type « R24L12ABCD » où 
ABOD seront les noms des notes. Si vous transformez en une expression 
fractionnaire, vous obtenez : 


1 + 1 + 1 + 1 + 1 ou encore 7 (ce qui est équi- 
24 12 12 12 12 24 
valent à 3/8) 


Adaptation du programme 


299 VOX=3S : PHRASE=16 
239 TEMPO=129 
279 T$S="LE MAGICIEN de Frank WUYTS" 


S29 REM ------ anne ee nn on ra tete -lrcbolles 

339 REM Chaine musicale 

40 REM-er=------m mere memmemem— 

359 VIS(1)="LS RAKFG-B<-DHF2LHF4 RARFALFEALEHCCHC 
RIJHFG-B<-DHF2RHF4 RARRFALFEALERCD>-B4 <HCDRHFG-B<- 
DHF2RHF4 RALR FALFEALERC)AB A4LAHFASD-D)>-AFEG<C)>!'" 


351 V1S(2)="A4RASRSRZR2! " 

352 VIS(3)=V1#(1) 

353 V1$(4)="LBAG4LARR?RZ RAR<BALBBALELBRE <C4C)>B4LB 

RHFAUHFE4RB A4GEGA4RGRARR2AILIZHFGARHF LSG4RAR2R2! " 

354 V1S(5)="LOERALRAAILASAAILAGSLARA -B4-BA4LASE4A4GA 

HFGRGAGRARASRRZALIZBRARFE L2H#G&RHGAI4HALHAG ! " 

355 VIS(6)="LERARBA4RBOSBALESLBORES <C4C)>BA4LBSHFALHF 

SB4RLBS A4G&RG2RGIRIR R2RARIRRAB A4FHFADLRDALDRA)IA -B 

4KE>G4<D)E4<HC)>GE<HC D2&D4R2R4>D!" 

356 V1$(7)="L2ZRRR!" 

357 VIS(S)=VIS(L)IVIS(D)=VIB(2) 1: VIS(19)=V1S(3):V1S 
(11)=VIS(4):V1S(12)=V1H(S):V1B(13)=V1#(6) 

358 VI1$(14)="LOER2RARARRACB A4SFHFAID&DALDRAIA -B4<E)}> 

G4<D)E4<RC)>GE<HC D28&D42>R2R4!" 

359 ViS(15)=V1#(14) 

369 VIS(16)="LSRAR<FDFERCED>)B<D HC>-B<HCCIACC)> B2& 
B4& B2& B2& B2!" 

SEL "HHHHHHHRHHHHHHHARHHHHHHHHHHHHHHHHE 
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362 V2$(1)="LA4G2RGHFRHFORLHFESR EZLERRERDSESHFS G G 
BRGLGEHFRHFONFESR ESERERLESR2R G2LGHFRHFSLRFESR E28& 
ERRSHDSESFS H#FRHFSLSDRFARKGHEHCCEG! " 

363 V2#8(2)="HF4R HFBRARER2ZRA!" 

364 V2$(3)=V2#S(1) 

365 V?26(4)="LOHFALHFRARR2RA RARCHFALRHFHFALRHELRHFRRE 
GAGHFALHFHDALHDHFALHF HFA4ELEAILER2R4 R2R2ZR2!" 

366 V2&(5)="LSRARRCARHCHCALHCLHCRHC DAIDHCAIRHCIAACEHR 

C4)A4 <DEFHF4RHFR2RS RE2RHESE2LES ! " 

367 V2$(6)="LOSRARHFALHFHFALRHFRHFRÉF GAGHFALHFHDALR 

DHFARHF HF4ERE2RE4RAR RZR2ZR2 D2RD4C28&C4 >-B2&-B4AZ 

&A4 DA&DARHFARGHERGGEG ! " 

368 V2$(7)="LORHF4RHFR24L1Z2ABARGAA4KHFSLERAR! " 

369 V2S(8)=V2#S(1):02S(9)=V2H(2):V2H(19)=02S(3): 028 
(11)=V2H(4):V2B(12)=V2F(5):V2H(135)=V2$(6) 

379 V2S8(14)="LOHFAIRHFR2A4L1Z2ABARKGLEAGHFRAR <D28&D4C2 

&C4 >-B2&R-B4A28RA4 DALRDAHFARGHERGGEG ! " 

371 V2S(15)=V2#(14) 

372 V?S(16)="LBR4R<D) BEDHCHHACHC)BHGB -BG-BARKFARKG2 

LHGAG HC2LHG2LHG2!" 

373 HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHE 

374 VSS(1)="L4 >ERLESRES>BRBS-BL-BS ARABRRECHCEHCEH 
D&HDS FLESRES)B&RBS-BL-BS ALASRES<SHCLHCOHDLHDS ERLES 
RESDP&BS-B&-RS ALASRRECHCRHCSERES DEDERREFRFSERES< 
1” 

375 V3S(2)=">LADEDERRERFLERHFEFERFEE !" 

376 V3S(3)=036(1) 

377 VSS(4)="1 68)» DA4LDDARDHCALHCCARC >B4LB<AAILAHDALHD 
>B4RB <ES4LEHDALHD)>BA4LB<HDALHD HD4 ER E4k ERZ2R4 RAR 
<EHDE>BGEEGB!" 

379 VSS(S)="LOAA4LARCARHCGALGEARE DARDHCALHCD)AGLALHR 

CARHC D2&D4)A2LA4 <HCAILHOCREIRHERFIRHFHCARLRE ! " 

379 V3S(6)="LO)BALB<AA4LARDALHDIBARB <EARLEHDALHD)>B4 

REB<HDALHD HD4ERLESRERARRADIB <E4)B<E4>B<E4>B&RBA4RE CD 

AGDDALD) MHFALHFHFALHF GALGGALGAALAAILA <DA4L&DDARDF 48 

FE48&E!" 

389 VSS(7)="D?2RDA4RFALRFFARF € ! " 

381 V3SH(8)=V3H(1):V3H(9)=V3H(2) :VSS(19)=V3S(S): V3 
(11)=V0VSH(4):V3B(12)=V3H (5): V3S(15)=V3#(6) 

382 VS3S(14)="LS8 DA4LRDR4D)AZ2LA4 <DA4LDDARDIHFALHFHF AR 

#F G48RGGA4RGAAILAAILA <D2RD4FARFEARE !" 

383 V3S(15)=V3$(14) 

384 V3S(lé)=" D28RD2&D2&D?&RD4D2RDA4RD2&D2&D2 !" 
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EXERCICES CLASSIQUES 


A vous maintenant. Les deux œuvres ci-après sont très connues et faciles 
à traduire. C’est en guise de dessert que nous les soumettons à votre 
sagacité. Essayez d’utiliser le code de traduction avant de regarder les 
adaptations du programme. 


Partition 19 — Musette de J.S. Bach 


















































































































































































































































176 | AMSTRAD EN MUSIQUE 


249 VOX=2 : FHRASE=6 


239 TEMPFO=256 


278 TH="MUSETTE de Jus EACH. " 
son 7 Chaines musicales 

349 $ _) un do ce don en © do.0p me den nine dt 2 SO 
O8: VOIX: L 

351 ? 4+++++4+ 


352 ViH(1)="VPLIéCAGIRGLHFRERD AILGRLHFRERD VIS>RFEG 

LASGRHFR ERAR#FRDR VI<AIEGRHFRERD AALGRHFRERD V13? 

HFRG&ASGRHFR ERARDS!" 

333 Vi$&(2)=V1S(1) 

254 VIS(3)="VLI<HCRDRESHCRDRES ASRLESES4 ASLESASRES 
DR&HC>BABSRES <ESHDS'ES<DS&4 DSHCSASHGS ESRHDSR?ESR 
LDS%& DALACSLACLHGS ERHDLHRCRHDRESHDEHCRHDE ER>VI135H#G 

RAR<DR!" 

255 VIH(4)="LISHCED&ES) ARVIIDR HCREDLES>A4 VF<<A4R&G 
BHFREXD AILORHFLERLD VISHFEGRASGRHFR ERARRFSDS V9< 
ASEGLHFLERD A4LGLHFRERD V13>H#HF&G&ASGRKFR ERARDA !" 


56 VIF(5)=ViF(35) 
F7 VIF(4)=V1(4) 


5 
583 ? + 1e en en nm æ me eee mn me ee mn me me mn me ee me me me me me me me me me me ee me 


GSéil V?r2$(1)=">;VOLSD<SD>D<SD >D£D>DED VISHF16&GI168ALI 
6GRHFR ERARLS#F&D V97>D<D>D<D >D{<D>D£D VI35HF16&Glék 
AL1LSGRHFR  ERARDAK !" 

362 VIS(2)=V2#(1) 

363 V2H(3)=">}VLILSASAT AA TASATASA FASATASA 7ASA? 
E<E DE<E)E<E >E<E)E<E >E<E)E<E >E<E)E<E >E<E)E<E ? 
EL16V13<ERRCRDER !" 

364 V2#(4)="E4R>AS<VLIIDISRIS LIiISHC&RDRES> A4 VILEDK 
D>D<D >D£D>D4D VISHF16RGISRASGEHFS LSEARHFS&DS V9)D 
<D>D<D >D<D>)>D<D VISHFILSRGIGSLALSRIGLISGRKFR ERARDSR 


[ex Ed [1 
C* : 


365 V2$(5)=V2#(5) 
366 V2#(6)=V2#(4) 
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Partition 20 — Bourrée de J.S. Bach 


Allegro 3 84) 































































































































































































299 VOX=Z : PFHRASE=é 


2355 TEMPO=144 


279 T$="BOURREE de J.5. BACH." 
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PET PRE TE Re te ee 

339” Chaines musicales 
TR 

2 097-V0IX ! 

SSL ? ++r+++ 

352 VIHS(1)="VIILSERHFE GAILHFRERHDALERHFR > BA4L<CHCELH 
D&E4RDRCE >BALALGRHFAIRGRLARS BRALGRHFLREIESHFR GAIRHF 
EELHDASERHF& >BARCHCRHDLEARDCR >BALALGLHFAILHFG G28& 
Ga4<!" 

353 VIH(2)=V1H(1) 

354 VIHS(3)="VIS)LSB&GR& <D4)A&ECR>BA<GRDE E4>B&D&C 
ABUAR VIZHGAILALERVIILCIRIBRAR VIGAZRAIUG<DE&)I AGE 
G&D&E4>ERéD&!" 

255 VI1S(4)="VISDCAHAGERHFARCHER VIIDARHCUL>BEHAlLSEBElÉé 
LHAARBE VIZBLIRBALVISBRHFS HGIGHFRELAIERGRE HFAIRERDE 
GA4D&F& EHALELHFAHCRER HD4>B2<ER>B& <CA4D&)ARBA4<CR>G 
GRSEAHFEGIHFRERRDILEHFLGAILHFRER EZREA4<!" 


356 V1#(5)=V18(3) 
357 ViIS(é)=V1S(4) 

558 D eu 2 Sd un on ve mm ne 06 00 de oû De ou men 0ee des Dei ef dun a mms ee tes On Sue to me me der me om 

359 * VOIX 2 

369 ? ------ 

361 V2#(1)="V11L4>)GSRHFS& EABA GHFEX#F GABA GBLSE& 


HFEGRHFE LAEABA GHFEHF G<CD>D G2Z8&G4<<!" 

562 V2S(2)=V2#(1) 

363 V28(3)="V13L4>>G4 L4#FDGE DH#GA<D VIZE>A<V1I1E)E 
VIOLSALBRAGGERHFAUVFDS LAIGB<C>HG!" 

364 VEIB(4)="VIGLEACHCDIHA VIIBSEHFIHF VIZLEBRHALBR 
{HCHHDA4)V1ZB4 LAEDHCIA <DC>BG <C>2BAHF LSBA48&BR:CR&) 
BZARHGA4 ALLERHF4 >G&D&ES4 >H#F&ELHCLHDAII EASY B4A4B2 

E2&E4< <!" 

565 VE2#(5)=V2#(3) 

Jés VIS(6)=V2#(4) 


Les programmes 


CLAVIER 


Présentation 


Ce programme transformera le clavier de votre machine en celui d’une 
«machine à musique ». 


EE ———aaaaaaaaa—————_— 


—+- ” Eu 
Heeee.Er eee LEE 
[eln[slvlulslo[elelela[xlelu[nfmlml. LL 




























Pour obtenir un son continu, vous devrez appuyer plusieurs fois 
rapidement sur la touche. 


L'arrêt du programme s'obtient en appuyant deux fois successivement 
sur la touche ESC. 
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Analyse du programme 


Initialisation 


Dimensionner une table des périodes (38 sons) 


Définir deux nouveaux caractères 230-231 (dessin d’une note de musique) | 150-170 


140 















Préciser les encres nécessaires 180 
Mémoriser les valeurs des périodes 190-250 
Présentation de l'écran 
Dessiner les deux portées 355-410 
Dessiner les barres horizontales pour les 2 notes qui le demandent 420-430 
Dessiner la clé de sol 440-490 
Dessiner la clé de fa 500-550 
Dessiner le clavier 560-850 
Jeu musical 
Attendre la frappe d’une touche du clavier 890 
Transformer la réponse en un caractère majuscule 900 


Selon la touche enfoncée 
Attribuer le n° de la période d’un son 910-1280 
Appeler la procédure MAINTIEN DE SON 


1290 
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Procédure MAINTIEN SON 1300 


Répéter 


Aller en procédure ON SQ() si la file sonore n’est pas complète | 1340 


Drapeau = 1 
1350 


Mettre le Attendre la frappe de la 


drapeau à 0 touche du clavier 7 


Jusqu’à ce que la touche appuyée actuellement corresponde à la touche de 
départ 


Fin de procédure 1370 













Procédure ON SQ(1) 1380 


Emettre le son 1410 


Mettre le drapeau (K) à 1 


Fin de procédure 1420 


Liste des variables 


P() table des périodes des sons. 

I variable compteur de boucles. 

R$ touche du clavier sur laquelle l’utilisateur a appuyé. 
K drapeau si K = 1 la file sonore n’est pas terminée. 
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100 ? HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHER 

119 PROGRAMME &i 

129” Clavier 

139 ? HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHEH 

139 DIM F(36) 

159 SYMEOL AFTER 239 

1€7 CYMEOL 239 ,&KI1111,&X11111,&X111111,&X111111,8 
X111111,8&X11111,@X1111,8X9 

179 SYMEBOL 231 ,&X11119099,8&X11111009,&X11111198,8& 
X111111G09,8&X11111169,8&X11111990,8&X111190609,&X9 

189 INK @,2&:INK 1,9 : MODE 2 

176 ? 


< VALEURS DES PERIODES 


, 


ÿ 


Q » € 
K: D 
Q 
À 
La | 
ll 
M 
En 
Q 
[el 
o 


READ F(1) 
NEXT 1! 

DATA 379,358,338,319,301,284,268,253,239,225,2 
13,201,198,179,169,159,15,142,134,127,119,113,106 
,190,95,89,84,86,75,71,67,63,69,56,53,59,47,45 

z69 ? 


3 Li Nm D 


à i 


N tr) PF) N) FN) rJ 


mn 
à 


PES. mea 

289 ? NOTES 

fr À Pr RE LE 

368 TAG 

319 FOR 1=1 TO 23 

329 MOVE 44+1X24,2609+1XK6 

33 PRINT CHRS(2359) 3; CHRS(251); 


349 NEXT I 
359 TAGOFF 


3939: ° 

369 ? ZONE PORTEE 

A Tor 

389 FOR I=1 TO 11 

379 MOVE 29,299+IK12:1F I1=6 THEN GOTO 419 
469 DRAWR 696, 


419 NEXT I 
429 MOVE 64,291: DRAWR 22,8 
439 MOVE 352,272:DRAWR 22,9 
449 ” 

459 ? CLE DE SOL 

466 L _—…. 

479 MOVE 48,294 : GOSUB 1439 
489 MOVE 47,294 : GOSUB 1439 
499 MOVE 47,293 : GOSUB 1439 
599 
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519 * CLE DE FA 
529 * --------- 
539 MOVE 38,249 
546 MOVE 29,249 
559 MOVE 28,239 


GOSUB 1499 
GOSUB 1499 
GOSUB 1499 


569 ? 

379 ? CLAVIER 

D 

599 LOCATE 9,17 

699 FRINT" + + > 7-6 (2 EE 5 
D G=H 4 + . 


619 LOCATE 9,29 

628 PRINT Q UN EE R T YU DB ns eZ 
MC DEN NM, , ? <! 

638 MOVE 62,79:DRAWR 552,9 

648 FOR I=9 TO 23 


659 MOVE 62+1X24,79 

666 DRAWR 9,59 

679 IF 1=@ OR I=1 OR I= 5 OR I=8 OR I1=12 OR I= 
15 OR I= 19 OR I=22 OR 1=23 THEN DRAWR @,49 

689 NEXT 


699 MOVE 62, 169: DRAWR 552,9 
768 FOR I1=6 TO 5 


719 MOVE 9S+IX24,169: DRAWR 9,-49 
778 MOVE 266+1%X24,16G: DRAWR G,-49 
739 MOVE 434+1X24,169: DRAWR 9,-49 


749 NEXT I 
759 FOR 1I=9 TO 2 


768 MOVE 194+1X24,169: DRAWR 9,-49 
774 MOVE 362+1IX24,16@: DRAWR 9,-49 
7839 MOVE SS9+1IX24,169: DRAWR 9, -49 


79@ NEXT I 

899 MOVE 98,129:DRAWR 67,9 
819 MOVE 266,126: DRAWR 697,9 
S29 MOVE 434,126: DRAWR 69,9 
838 MOVE 174,129: DRAWR 46,9 
846 MOVE 362,129:DRAWR 46,9 
854 MOVE 534,129: DRAWR 46,9 


869 ? 

878 ? JEU MUSICAL 

BE 

559 RS=INKEYHS:IF R#="" THEN GOTO 899 
534 RF=UPPERS (RS) 

510 IF R#$="Q" THEN S=1:GOSUB 13539 
92@ IF RF="W" THEN 5S=2:GOSUB 1539 


94Q IF R#S="E" THEN 
958 IF RF="4" THEN 


GOSUB 1339 


S 
S 
939 IF R$S="3" THEN S= 
S 
S GOSUB 1339 


: GOSUB 1339 
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F69 IF RF="R" THEN S=6:GOSUB 1339 
779 IF RS="S" THEN S=7:GOSUB 1339 
989 IF RF="T" THEN S=8:GOSUB 13359 
FAQ IF R&="Y" THEN S=9:GOSUB 1339 
1999 IF RF="7" THEN S=19:GOSUB 13539 
1919 IF R#="U" THEN S=11: GOSUB 1339 
1926 IF R#="S" THEN S=12:GOSUB 1339 
1959 IF R#$="1" THEN 5S=13:GOSUE 1339 
194 IF R$="0" THEN 5=14:GOSUB 1339 
1859 IF R&="9" THEN S=15:GOSUE 1339 
1969 IF FE="F" THEN S=16: GOSUB 1359 
1979 IF R#&="-" THEN S=17: GOSUB 13359 
1939 IF RH5="à" THEN S=18:GOSUB 1339 


1999 IF R#=""" THEN S=19:GOSUB 1339 
11G9 IF RF="°" THEN 5=29:GOSUB 1339 
1119 IF R5="Z" THEN S=21:GOSUB 1339 
112SG IF FF="S" THEN S=22:GOSUB 1339 
1139 IF R$="X" THEN S=23: GOSUB 1339 
1146 IF R$="D" THEN S=24:GOSUB 1339 
1159 IF RHE="C" THEN S=25S:GOSUB 13559 
116€ IF RF="V" THEN S=26: GOSUB 1339 
1179 IF R#="G" THEN S=27: GOSUB 1339 
1186 IF R#="E" THEN S=26:GOSUB 1359 
119 IF R&="H" THEN 5=29:GOSUB 1339 


1299 IF R$S="N" THEN S=59:GOSUB 1359 
1219 IF R#="J" THEN S=31: GOSUB 1339 
1226 IF R#="M" THEN S=32:GOSUE 135539 
1239 IF R#="," THEN S=33: GOSUB 1339 
1240 IF R$="L" THEN 5=54:GOSUB 13:39 
1259 IF R#="." THEN S=35:GOSUR 1339 
1269 IF RF=":" THEN 5=56: GOSUB 1339 
1279 IF R#="/" THEN 5=537:GOSUB 1339 
1269 IF F#&="c" THEN S=38:GOSUB 1339 


1290 GOTO 8399 

1500 * senseaasszesezsanm=ssz=szsesssseze— 
15197 Procedure MAINTIEN SON 

1329: Res sas = === mme 
1339 SOUND:1,P(S),; 5,15 

1349 ON SG(1) GOSUB 1419 

1:55 IF K=1i THEN K=9 : GOTO 1339 

13564 RIF=INKEYS: IF RIS=RS THEN GOTO 1339 
1379 RETURN 

1380 ? ====s=====s===================2== 
15979: Procedure ON 5@() 

194909 ? =====-2=2S===e=e === =—=— 
119 SOUND 1,P4(S},515 : K=1l 

1428 RETURN 
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14859 * =====222=2222=2=-22-2n=22s222=222=z 

1469 DRAWR -3,-3:DRAUWR -7,9:DRAWR -6,3:DRAWR @,9:D 

RAWR 4,S:DRAWR 13,@:DRAWR 4,-5: DRAWR 9,-11: DRAWR 
73-73: DRAWR -12,@:DRAWR -11,11:DRAWR 9,12:DRAWR 2 

7,57 

1479 DRAWR 9,8:DRAWR -4,3:DRAWR -1,9:DRAWR -4,-4: 

DRAUR @,-9S: DRAWR -2,-2Z:DRAWR -3,9:DRAWR -3,3 
1489 RETURN 

1499 " ===2==22==s==2====2=2==2=s2=2=22=2.x22s 

1599. 7? Fveocedure:CLE.DE:FA 

1519 ? ====================2====s=2-2=22== 

1529 DFAWR -3,7:DRAWR 9,4:DRAWR 2,6:DRAWR 6,4:DRAW 
R 6,8: DRAWR 7,-7:DRAWR 1,-5:DRAWR -1,-19:DRAWR -7, 
11: DRAUR --14,-12 

1539 MOVER 31,285 : DRAWR 2,9 

1549 MOVER -2,12 : DRAWR 2,9 

1559 RETURN 


MÉMOIRE DES SONS 


Présentation 


Le programme est destiné à mesurer le niveau de mémoire des sons de 
l'utilisateur. 


LA BONNE TOUCHE : 
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A la mise en route du programme, un son est émis et il ne s’interrompt 
que lorsque la touche fléchée qui lui correspond a été enfoncée. Quatre 
sons (DO, MI, SOL, DO) sont ainsi mis en relation avec les quatre touches 
fléchées. 


Débute alors le jeu. Une suite de sons est émise, suite se complétant par 
un nouveau son, si la série est correctement réécrite par l’utilisateur. La 
succession de touches utilisées est affichée dans une zone réservée au bas de 
l'écran. Le score est indiqué dans le coin supérieur gauche. 


Analyse du programme 


Initialisation 

Préciser les paramètres de présentation d’écran 150 
Prévoir une distribution aléatoire des nombres tirés au hasard 170 
Dessiner la figuration des touches du jeu 180-510 
Dessiner la fenêtre affichant le score 520-600 
Dessiner la fenêtre recueillant la réponse 610-660 


Fixer la valeur des 4 périodes des notes utilisées (PC) 700 
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Apprentissage 


Répéter 


Afficher le message signalant l’apprentissage 710-730 


Répéter 4 fois 740 


Répéter 


Attendre l’appui sur une touche du clavier 760 


Jusqu’à ce que la touche déplacement correcte soit enfoncée | 770 






780 
Afficher le message de demande de suite du programme 800-810 
Jusqu’à ce qu’une autre touche que 0 soit enfoncée 830 
Jeu 
Répéter 30 fois 880 
Compléter la chaîne problème 910 
920 
Répéter 
Incrémenter le nombre de codes lus 960 
Mettre à vide la chaîne réponse 960 


Afficher cette valeur dans la fenêtre score 970 
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Lire dans la chaîne problème la succession de sons à interpréter (CRS$) | 980 
(chaîne réponse) 


Répéter autant de fois que le nombre de codes lus 


990 
Déterminer le numéro du son 1000 


Interpréter un «silence » 1030 
Vider la fenêtre communication 1050 
Demander la réponse 1050 









Répéter 







Attendre l’appui sur une touche du clavier 1060 
Touches déplacement curseur ? 1070 
Mémoriser la chaîne 
réponse (RES) 
Afficher le symbole de 
la touche enfoncée 
Jusqu'à ce que le nombre de sons donnés comme réponse soit 
à È : 1100 
identique au nombre de sons interprétés 
Jusqu’à ce que la réponse soit incorrecte 1120 
Vider la fenêtre communication 1130 
Afficher le message d’erreur 1140 
Vider la fenêtre communication 1170 
Afficher le menu de la suite des activités 1190-1200 


Répéter 
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Attendre l’appui d’une touche du clavier 1210 


Relancer le programme de jeu 


Jusqu’à ce que la touche soit N 


Vider l’écran totalement 1240 
Afficher le message de fin 1250-1280 


Fin 1290 





Remarque : les lecteurs ne disposant pas d’un CPC 6128, doivent supprimer 
les lignes 290, 350, 410, 470 qui utilisent l'instruction FILE qui n’est pas 
comprise par les autres versions. 


La liste des variables 


P (a) période du son (4 sons sont prévus et ils correspondent aux notes 
DO — MI — SOL — DO). 


R$ touche sur laquelle l’utilisateur a appuyé. 
I variable compteur de boucles. 
variable compteur de la boucle de temporisation. 
X nombre de 1 à 4 tiré au hasard. 
X$ expression alphanumérique de X. 


CP$ chaîne problème (suite de 30 valeurs de 1 à 4, c’est la chaîne à 
reproduire). 


NCL nombre de caractères lus dans la chaîne problème. 
RE$ chaîne réponse de l'utilisateur. 
CR$ chaîne réponse type. 


N$/N code du son à émettre. 
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199 ? HHHHHHHHHHHHHHHHHHHHHHHHHHHEH 


1197 FROGRAMME 58 

129 ” MEMOIRE SONS 

139 ? HHHHHHHHHHHHHHHRHHHHHHHHHHHE 
149 Cis 


154 MODE 1:INK 9,26: INK 1,6 : INK 2,5:INK 3,29 

159 BORDER 15 

179 RANDOMIZE (TIME) 

12 ”? 

1759 ? Zone graphique 

289 ? ===SS==S=S==== 

219 MOVE 299,75 

229 DRAWR 9,399: DRAWR 349,9 : DRAWR 9,-35399 : DRAW 
R -584,4 

239 MOVE 399,175 

249 DRAWR @,19@ : DRAWR 199,9 : DRAWR 9,-199 : DRA 
WR -164,9 

2958 DRAWR -199,-194 

269 MOVER 9,399: DRAWR 196,-169 

274 MOVER 199,9: DRAWR 199,199 

2689 MOVER 9,-3@@: DRAWR -199, 199 

2997 FLECHE 1 

D mes 

312 MOVE 359,295 

324 DRAWR --7, 8: DRAWR 9,45: DRAWR -15,@9:DRAWR 22,15: 
DRAWR 22,-1S:DRAWR-15,9:DRAWR 9,-45:DRAWR -7,9 

339 MOVE 359,299 : FILL 2 

34% ? 

399 FLECHEZZ 

PO rec Ree 

379 MOVE 429,225 

389 DRAWR 9,7:DRAWR 45,9:DRAWR @,15S:DRAWR 15,-22:D 
RAWR -15,-22:DRAWR G,15:DRAWR -45,9:DRAWR 9,7 

599 MOVE 415,229 FILES 

4a@ ? 

#19 -: FLECHE S 

AC =... 5 

43539 MOVE 359, 155 

449 DFAWR 7,9:DRAWR 9,-45:DRAWR 15,9: DRAWR --22,-15 
:DRAWR -22,15:DRAWR 15,9: DRAWR 9,4S:DRAWR 7,49 
459 MOVE 359,157:FILL 2 

464 ? 

470 7 FÉECRE #4 

459 ? = on de me mé ne mn ce 

479 MOVE 259,223 

569 DFAWR 9,7:DRAWR -45,9:DRAWR @,15:DRAWR -15, -22 
:DRAWR 15,-22:DRAWR @,15:DRAWR 45,9:DRAWR 9,7 


a: 


o à à © à © © © à © © € 


oO) © 0 © 0) 9) 0) ©) 0) 03 M UN NM NM 
ROSES RDLEST SE 
ia 


nu 
Le 
Le 


iQ 


æ 


Un = UN + 


J © 


“9 +) 9 M) N) N 9 +) 


[ol 
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MOVE 282,225:FILEL-S 


c] 


? FENETRE SCORE 

WINDOW 2,19,2,9 

PAPER 2: PEN 9 

CLS 

WINDOW #1,2,19,2,9 
LOCATE 2,2:PRINT"SCORE. " 
LOCATE 2,3:PRINT"======" 


? FENETRE REPONSE 
WINDOW 4,36,22,25 
PAPER-Z2 : PEN 9 » GES 
WINDOW #H2,4,36,22,25 


» 


? APPRENTISSAGE. 


P(1)=23F9:P(2)=1F9:P(3S)=159:P(4)=119 


PRINT 
PRINT ? APPRENTISSAGE :” 
PRINT" TAPEZ SUR LA BONNE TOUCHE" 


FOR I=1 TO 4 
SOUND 1,P(1),1 ,15 


RS=INKEYS: IF R$="" THEN GOTO 759 
IF ASC(RS)<2239+1 THEN GOTO 759 
MEXT I 


LS: FRINT 
PRINT" DESIREZ-VOUS ENCORE UN ESSAI ?” 
FRINT" <0? <N2>" 
R&S=INKEYS: IF R$="" THEN GOTO 829 
IF R$="0" OR R$="0" THEN CLS : GOTO 719 


L 


* PREPARATION SUITE DE SONS 

cpPg="" 

FOR I=1 TO 39 
KX=INT(RND(3)%4 + 1) 
KXB=RIGHTS(STRE(X) , 1) 
CPH=CPHIXS 

NEXT I 

JEU 


7 


NCL.=9 
NCL=NCL+1:RES="" 

LOCATE #1,4,5 : PRINT #1,NCL-1 
CRS=LEFTS (CPS, NCL) 
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999 FOR I=1 TO NCL 


1999 NS=MIDS(CRS,1,1) 
1919 N=VAL (NS) 

1929 SOUND 1,P(N),59,15 
1939 SOUND 1,P(N),5,9 


1649 NEXT I 
1959 CLS : PRINT"'VOTRE REPONSE" 


1669 RFS=INKEYS:1F R$="" THEN GOTO 1969 

1679 IF ASC(R#)<249 OR ASC(RHS)>243 THEN GOTO 1 
289 

1959 REFS=RES+RIGHTHS(STRE(ASC(RE) --237),1) 

169 PRINT CHR#& (ASC (RS) ) ; 


1199 IF LEN(RES)<NCL THEN GOTO 1969 
1119 FOR T=1 TO 1999: NEXT T 

1129 IF RES=CRS THEN GOTO 969 

1139 CLS 

1149 FRINT 

L'LSPOPRENTENLE R R E LU R" 

1168 FOR T=1 TO 2999 : MNEXT T 

1179 CLS 

1159 FRINT 

1199 PRINT " DESIREZ-VOUS UNE AUTRE PART 7?" 
1294 PRINT " ROUEN?" 

1219 RH=INKEYS:IF R#="" THEN GOTO 1219 
122@ IF R#="0" OR R$="0" THEN GOTO 849 
1239 IF RF="N" OR R#="n" THEN GOTO 1259 
1246 GOTO 1219 

1259 MODE 1 : CLS 

1269 LOCATE 19,19 

1279 PRINT "AU REVOIR" 

1289 LOCATE 1,29 

1299 END 


RECONNAISSANCE DE RYTHMES 


Présentation 


Ce programme est destiné à apprendre à l’utilisateur à reconnaître parmi 
quatre rythmes affichés à l’écran, celui qui est interprété par l’ordinateur. 
Cinq rythmes seront présentés successivement et une évaluation continue 
sera réalisée. 
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RECONNAIEISSEZ LE RYTHME 


VOTRE CHOIX 7 











Les rythmes sont présentés sous forme de cinq notes dont la durée est soit 
une noire, soit une croche. La structure rythmique sera répétée cinq fois 
avant que le message demandant la solution ne soit affiché. Une réécoute 
est possible en appuyant sur la touche «E». 


L'évaluation vous accorde trois points si la reconnaissance est exacte lors 
de la première réponse. A chaque nouvel essai, un point vous est retranché 
et après quatre erreurs, la réponse est fournie. Ce résultat s’affiche sous 
forme d’un graphique où chaque point est figuré par un petit personnage. 


A la fin du programme, il vous est demandé de choisir entre une reprise 
du programme ou la fin de son exécution. 


Analyse du programme 


Initialisation 


Prévoir une distribution aléatoire des nombres tirés au hasard 170 


Préciser les encres nécessaires 180-210 
0 jaune pastel (25) 
1 noir (0) 
2 bleu pastel (14) 


3 blanc brillant (26) 


Définir les signes spéciaux 220 
(composant les notes (252, 253, 254, 255) 230-260 
relatifs à la zone résultat (251)) 


Choisir les composantes de l’écran utilisé 270-280 
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Présentation écran-jeu 













: 
Préciser les coordonnées des cadres encadrant 

chaque structure rythmique 320-380 
Appeler la procédure TRACER CADRE 

Jeu 

Répéter 5 fois 5 


70 
es 


Répéter 


Créer 4 listes de 5 durées selon les lois du hasard (R(a,b))| 640-690 


Vérifier que chacune des suites rythmiques est différente des 700-740 





0 si c’est le cas 


1 si deux chaînes au moins sont identiques 


Jusqu'à ce que KT = 0 750 


Déterminer le numéro de la suite rythmique qui sera interprétée (R)| 760 


Afficher chaque structure dans la fenêtre qui lui correspond (il faut 
préciser l’origine X, Ÿ ainsi que le numéro de la fenêtre et appeler 14 780-810 


procédure AFFICHAGE RYTHME 


Répéter 





Appeler la procédure SON 820 
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Afficher la question “Votre choix” 80-840 
(dans la fenêtre 6) 


Attendre l’appui sur une touche du clavier 850 





860 






Si appui sur E? 


Non 
[\ 
Appeler Appui sur autre touche que 1, 2, 3, 4? 
la procédure 
SON 
Oui 870 






Non 
Réponse correcte ? cs 880 
Afficher “NON” | 890 


Retrancher 1 

































point au total Incrémenter le 900 
compteur 
possible des erreurs 
Calculer le total 4 
obtenu 
Afficher le. Afficher 
résultat en zone la 
graphique réponse 
correcte 
Tempori- 
sation 
Jusqu’à ce que la réponse soit correcte ou que le nombre d’erreurs soit 
supérieur à 4 
910 
Afficher dans la zone 5 “(A)utre  (F)’in 920 
Répéter 
Attendre appui sur une touche du clavier 930 
à L 


Relancer le programme R 


| 
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Jusqu’à l’appui de F 950 


Afficher le message de fin 


Procédure TRACER CADRE 1010 


970-980 


1000 





Afficher caractère dont le code est 135, 131, 139 











Répéter 5 fois 1050 


1080 





Procédure VIDER FENETRE 1110 
Choisir la couleur du crayon 1140 
Pour chaque fenêtre 1150-1180 


Fixer la couleur du papier 
Indiquer les limites de la fenêtre 
Vider l’écran (prend la couleur du papier) 


Fin de procédure 1190 


Procédure NOIRE 1200 


PC 


Choisir la couleur du papier et du crayon 1230 
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Ecrire la note en fixant la position du curseur 1240-1260 
(254) 


(254) 
(252) (253) 
Fin de procédure 1270 


Procédure CROCHE 


Choisir la couleur du papier et du crayon 


Ecrire la note en fixant la position du curseur 









1280 





1310 


1320-1340 


1350 


Fin de procédure 
Procédure AFFICHAGE RYTHME 1360 


Répéter 5 fois 1390 


Code de la note est 1? 1400 
No 


Appeler procédure Appeler procédure 
NOIRE CROCHE 


420 


Fin de procédure 1430 
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Procédure SON 1440 


Répéter 5 fois (nombre de répétitions de la structure rythmique 1470 


Répéter 5 fois (nombre de notes de la structure) 1480 


Calculer la durée (TP) 1490 
Emettre un court silence (10 % de la durée du son) 1510 


1520 


1530 


Fin de la procédure 1540 


Liste des variables 





X,Y position du curseur écran. 

LJ,K variables compteurs de boucles. 

F numéro de la fenêtre concernée. 

T variable des boucles de temporisation. 


R (J,K) valeur de la durée (1 ou 2) pour la note K de la structure 
rythmique J. 


L$ (J) structure rythmique J (ne sert qu’en mode test pour éviter deux 
structures rythmiques identiques). 


KT drapeau de contrôle vaut 1 si 2 structures rythmiques sont 
identiques, vaut 0 dans le cas contraire. 

TP durée du son à émettre. 

R numéro de la structure interprétée par l’ordinateur, choisi au 
hasard. 

R$ touche appuyée lors de l’attente de l’appui sur le clavier (réponse à 
la question choix de la structure et à la question suite du 
programme). 

ER nombre d’erreurs. 

BP nombre de points obtenus lors de la reconnaissance d’une 
structure. 


TOT niveau de performance réalisé. 
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190 ? HHHHAHHHHHHHHHHHHHRHUHHHHHHHHHHR 
119 * PROGRAMME 59 

129 ? RECONNAISSANCE DE RYTHMES 

139 ? HRHHHHHHHHHARHHHRHHHNHHHHHHHHHHHE 

149 ? 

159 * INITIALISATION 

14€ PV des se en en me te 2x en ne © 05 ee 

179 RANDOMIZE ( TIME ) 

189 INK 9,25 

199 INK 1,9 

208 INK 2,14 

218 INK 3,26 

229 SYMBOL 251,&X190900991,&X10000001,&X10099091,&X 
19900001,LX10000001,8X10000001,&X11111111,&X111111 
11 

239 SYMBOL 252,8&X9,&X111118,&X1111111,&X11111111,8 
X11111111,8&X1111111,&X111116,&X9 

249 SYMBOL 253,&X11000090,&X11000000,&X11000008,&X 
11900006 ,4X11000000,LX0,LXD, &XO 

259 SYMBOL 254,8X11900009,&X11000000,&X11000908,&X 
11800009 ,8LX11000006,&X11000008,LX11900000, &X119000 
g@ 

264 SYMBOL 255,8&X11900000,&X11190000,8&X11119908,&X 
11111008,8X11911190,8X11991198,8&X11900100,8X119009 
og 

279 BORDER 8:PAPER @:PEN 1 

288 MODE 1 


2979 CLS 

399 LOCATE S,2:PRINT"RECONNAISSEZ LE RYTHME ." 
519 LOCATE S,S:PRINT"--------—----——------- 5 
329 ? 

339 ? CADRES 

349 Te 

354 X=3:Y=S:GOSUE 1919 

369 X=22: Y=5: GOSUB 1919 

378 X=3 :Y=14: GOSUB 1919 

539 X=22:Y=14: GOSUB 1919 

379 ? 

499 ’ FENETRES 

D = 


429 WINDOW #1,3,29,5,11 
439 WINDOW #2,22,39,5,11 
449 WINDOW #3,3,29,14,29 
459 WINDOW #4,22,39,14,29 
469 WINDOW #5,3,29,24,24 
479 WINDOW #6,22,38,23,25 
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489 
499 ” 
599 
519 PEN #6,2 

529 LOCATE #6,1,2:PRINT #6, STRING#(16,CHR#(251)) 
539 PEN #6,1:LOCATE #6,1,3:PRINT #6,"g 


ZONE RESULTATS 


ist] 

94 ? 

9559 ? JEU 

564 ? 2 

579 FOR I=1 TO 5 

529 ER=G 

599 GOSUB 1119 

699 FOR J=1 TO 4 

619 PEN #J,1:LOCATE #J,2,2:PFRINT #HJ,J 
za NEXT J 

634 FOR J=1 TO 4:LS(J)="":NEXT ]J 

649 FOR J=1 TG 5 

659 FOR K=1 TO 35 

664 R(J,K)=INT(RND(S)X2)+1 
67 LHE(J)=LB(J)+STRE(REI,K)) 
639 NEXT K 

678 NEXT J 

766 FOR J=4 TO 2 STEP -1 

718 FOR K=J-1 TO 1 STEP -1 

724 IF LS(J)=LHS(K) THEN KT=1 
734 NEXT K 

749 NEXT J 

759 IF KT=1 THEN KT=9 : GOTO 639 

766 R=INT(RND(7)#4)+1 

F7 

769 X=4:Y=3:F=1: GOSUE 1369 

799 X=4:Y=35:F=2: GOSUR 1369 

599 X=4:Y=3:F=5: GOSUR 1369 

819 X=4;: Y=3:F=4: GOSUB 1569 

829 GISUE 1449 

8354 PEN. #5,1 

544 FRINT #5, "VOTRE CHOIX 7?" 

854 RFS=INKEYS:IF R$="" THEN GOTO 559 
564 IF R$="E" OR R#="e" THEN GOSUB 1449:GO0OT0 8 
39 

279 IF R$<"1" OR R$>"4" THEN GOTO 849 
2834 IF R=VAL(RS) THEN BF=3-ER:TOT=TOT+BF:PEN#é 


52: LOCATE #6,1,1:PFRINT#H#6,STRINGS(TOT+1,CHRB (259) ); 
: GOTO 919 
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899 PRINT #5,"N O N !":FOR T=1 TO 1999: NEXT T 
55 ER=ER+1 : IF ER=4 THEN PRINT#HS, "LA REPFONSE 
EST "3RS:FOR T=i TO 29G9:MNEXT T: PFRINT#HS,” 
"sELSE GOTO 849 
919 NEXT I 
929 PRINT #5,"<Adutre «<F)>in" 
954 RS=INKEYH:IF RF="" THEN GOTO 939 
749 IF R&="A" THEN RUN 
959 IF RS<>"F" THEN GOTO 939 
969 M9DE i ‘: PAPER 9: PEN 1:CLS 
979 LOCATE 19,19 
7929 FRINT "AU REVOIR." 
959 LOCATE 1,29 
1499 END 
1010 ‘  sansssasszzs=zanseszesssessszesse 
1929 ? Procedure TRACER CADRE 
TU * ==Sru=ss=s=ser=sc=sEss=Ssss==s== 
1949 LOCATE X,Y:PRINT CHRS(135); STRINGS(14,CHR&(13 
1))5CHRS(1397) 
195G FOR I=1 TO 5 
1559 LOCATE *X,Y+I 
1979 PRINT CHRS(133) ; STRINGS(14," "); CHRF(138) 
1984 NEXT I 
1899 LOCATE X,Y+6:PRINT CHR#(141) 3; STRING (14,CHRSE ( 
149) ); CHR&(142) 
1199 RETURN 
111 ? ==z======ss=======SS==SSSs==z==z 
1129 Procedure VIDER FENETRES 
1159 ? ====S=SSS=SS=SSSSESSSESSESESE=S=E=z 
1199 PEN S 
1159 PAPER 2Z:PEN 3: WINDOW 4,17,6,19:CLS 
1169 PAPER 2:WINDOW 25,36,6,19:CLS 
1179 PAPER 2:WINDOW 4,17,15,19:CLS 
1129 FAFER 2:WINDOW 23,36,15,17:CLS 
1199 RETURN 
129 ? ===s=2=2=s==E==ss==============2=z== 
1219 ? Procedure NOIRE 
122 ? ===zzz========================== 
1239 PEN RF,S3:PAPER #F,2 
12949 LOCATE #F,X,Y © PRINT #4F," "sCHR#&(254);3 
1259 LOCATE #F,X,Y+1:PRINT #F," "3 CHRS(254); 
1269 LOCATE #F,X,Y+Z2:PRINT #F, CHRS(252) ; CHR#& (253) 


1279 RETURN 
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12859 
1299 
1399 
1319 
1329 
135549 
1349 
1359 
1369 
1357 
1389 
1396 
1494 
eg 

1419 
1424 
1459 
1449 
1459 
1469 
1479 
1489 
1479 
1599 
1516 
1529 
15359 
1549 


FEN #F,3:PAPER #F,2 
LOCATE #F,X,Y : PRINT #F," "5; CHRS(255); 
LOCATE #F,X,Y+1:PRINT #F, " "3CHRS(254);: 
LOCATE #F,X,Y+2:PRINT #F,CHRS (252) ; CHRS (253) 
RETURN 


FOR J=1 TO 5 
IF R{F,J)=1 THEN GOSUB 1299 ELSE GOSUB 12 


KX=X4+12 
NEXT J 


FOR K=1 TO 5 
FOR J=1 TO 5 
TF=49/R(R,J) 
SOUND 1,125,7TF,15 
SOUND 1,125,TP/19,9 
NEXT J 
NEXT K 
RETURN 


DICTÉE DE SONS 


Présentation 
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A la mise en route, le programme fait entendre une suite de huit notes 
deux fois successivement. Un curseur apparaît sous la portée décrivant les 
notes possibles. Vous pouvez le déplacer en utilisant les deux touches <— 
et —>. La barre d’espacement est appuyée pour valider le choix. A ce 
moment, le son correspondant à la note désignée est émis et la note est 
écrite sur la portée réponse. 


Lorsque vous avez pointé 8 notes, votre réponse est interprétée par la 
machine, la suite correcte est ensuite jouée. Votre « partition » est évaluée, 
des croix biffant les réponses erronées. Une cotation sous forme graphique 
est réalisée au bas de l’écran et le pourcentage de réussite est exprimé. 
Vous devrez répondre à cinq séries de sons. 


A tout moment, vous pouvez entendre la suite de notes en tapant sur la 
touche E. 


Analyse du programme 


Répéter 5 fois 
Répéter 2 fois 


Mettre à 0 le nombre de réponses 







140-160 


170-180 






220 






230 






240 





250 









260-280 








290 






300 


310 






320 


330 
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Afficher le curseur-pointeur sous la première note 340 


Répéter 


Attendre la frappe d’une touche du clavier 350 
Si ? 


360 


Appeler 370 
procédure 


Appeler 380 
procédure 


Appeler 390 
FIXE 
CHOIX 


Appeler 
procédure 
SON 


CRC À 


Afficher “Réponse correcte” 440 


Appeler procédure EVALUATION REPONSE 460 
À 
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Attendre l’appui sur une touche du clavier 


Jusqu’à ce que la touche soit “N” 


Afficher le message de fin 


510 







520 













530 
540-560 


570 


580 


Procédure CLE DE SOL 


Dessiner la clé de SOL 
Fin de procédure 


Procédure CLE DE FA 
Dessiner la clé de FA 


Fin de procédure 











630 







640 





700 


Procédure <= 710 


Effacer le curseur 740 
Décrémenter la variable horizontale (XC) 750 
Appeler procédure VALIDATION 760 
Afficher le curseur 770 


Fin de procédure 780 
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Procédure VALIDATION 


Tester la valeur de XC 
175 <= XC <= 511 


Fin de procédure 


790 















820 






850 


880 


Procédure SON 


Répéter 8 fois 


890 







910 









920 







930 


960 






970 







980 






990 





1000 






1010 





1020 


1050 












Emettre le son 1060 


Emettre un silence 
Fin de procédure 


1070 


1080 


1090 
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Procédure PORTEE REPONSE 1100 


Répéter 5 fois 1130 


Dessiner une droite horizontale de 550 points 1150 


1160 


Fin de procédure 1170 












Procédure EVALUATION REPONSE 


RE 


1180 


Répéter 8 fois 1210 


Réponse correcte ? 1220 


Tracer une croix sur 
la réponse émise 


Appeler procédure 
DESSIN NOTES 


Fin de procédure 


Incrémenter le compteur 
de «bons points » 








1280 


1290 








1300 


Procédure PERFORMANCE 


Calculer le résultat en pourcent (RSE) 





1330 
Afficher la zone réussite et le résultat obtenu 1340-1370 


Fin de procédure 1380 
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se 


Liste des variables 


BP nombre de bons points obtenus. 

NN numéro de la note pointée dans la zone modèle. 

NR numéro de la réponse. 

NT (J) numéro de la note à retrouver (8 notes composeront la mélodie à 
retrouver). 

PO période des 8 notes à reconnaître. 


R (J) réponse émise par l'utilisateur. 
RES résultat exprimé en %. 

R$ touche frappée au clavier. 
L,J,K variables compteurs de boucles. 
T variable compteur de temps. 
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100 ? HHHHHHHHHHHHHHHHHHHHHHAHHHHHHER 

119 ” PROGRAMME 69 

129 ? DICTEE SONS 

136 ? HHHHHHHHHHHHEHHHHHHHHARHHHMAMHAHAE 

149 SYMBOL AFTER 239 

159 SYMBOL 234 ,&X1111,&X11111,&X111111,&X111111,8& 
X111111,&X11111,8X1111,8X9 

169 SYMBIL 231 ,&X111189990,8X11111999,&X11111199,& 
X11111160G,8X11111169,8X11111099,8&X11119009,8&X9 

179 INK 9,26:INK 1,9 : MODE 2 

189 EORDER é 

199 ? 

269 ? JEU 

219 ? --- 

229 P(1)=239:P(2)=213:P(3)=199:P(4)=179:P(5)=159:F 
(6)=142:P(7)=127:P(8)=119 

239 XC=175 

249 FOR I=1 TO 5 


259 CLG :GOSUB 1549:GOSUB 1399 

26% FOR"dS=r 10 9 

279 NTIJI)=INT (RND(8)X8)+1 

2€ NEXT J 

274 FOR J=1 TO 2 

369 GOSUB 1926 

519 IF J=1 THEN FOR T=1 TO 5999 : NEXT T 
22 NEXT J 

339 NR=9 

349 MOVE XC,S9 :TAG: PRINT CHR#(94)3:TAGOFF 
359 RS=INKEYS:1IF R$="" THEN GOTO 559 

364 IF ASC(R#)=242 THEN GOSUB 71G 

379 IF ASC(R#)=243 THEN GOSUB 859 

5859 IF ASC(R#)=32 THEN GOSUB 939 

37 IF RE="E" OR R#='"e" THEN GOSUB 1929 
ago IF NR<S THEN GOTO 359 

416 LOCATE 5,2 : FRINT"'VOTRE REPONSE :" 

429 FOR J=1 T9 8 : SOUND 1,P(R(J)),16@, 15: SOUN 
D 1,199,19,SD:NEXT J 

439 FOR T=1i TO 4999: NEXT T 

43 LOCATE 5,2 : PFRINT"'REPONSE CORRECTE :" 
459 GOSUB 1929 

468 GOSUB 11S59:FOR T=1 TO 2SG6S:NEXT T 

479 GOSUB 1369 

439 NEXT I 

479 LOCATE S,1:PFRINT"Quel est votre choix 7" 
599 LOCATE S,2:PRINT" <A)utre CESEN: 


519 RF=INKEYS:IFR#S="" THEN GOTO S19 
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9529 IiF R$="0" THEN RUN 

5359 IF RS<>"N" THEN GOTO 519 

549 MODE 1 

529 LOCATE 19,19 

549 FRINT"'AU REVOIR." 

579 END 

SAT ? =S=R======SS===SSS=SSSE=================—= 

599 ? Procedure CLE DE SOL 

ÉÛT ? ===sSzzSSSsS=SSSSSSESEESSSESES=SS=S=S=S=—= 

819 DRAWR -3,-3:DRAWR -7,@:DRAWR -6,3:DRAWR 9,9:DR 
AWR 4,5:DRAWR 13,@:DRAWR 4,-5: DRAWR @,-11: DRAWR 
73 7: DFAWR -12,@:DRAWR -11,11:DRAWR G,12:DRAWR 27 
, 57 

629 DRAWR 9,8: DRAWR -4,3: DRAWR -1,9:DRAWR -4,-45: D 

RAWR 9,-95: DRAWR -2,-2:DRAWR -3,9:DRAWR -3,3 

439 RETERN 

GAT ? =======2= ESS SSSR ST =SS=SZ 

659 ?  Frocedure CLE DE FA 

bôT ? === SS=ESSESE=E=E==S==SS==S=E=Z=Z== 

679 DRAUR -3,7:DRAWR 9,4:DRAWR Z2,6:DRAUR 6,4: DRAUR 
6, A: DRAWR 7,-7:DRAWR 1,-S5S:DRAWR -1,-19:DRAWR --7,- 
11:DRAWR -14,-12 


689 MOVER 351,28 : DRAWR 2,9 

698 MOVER -2,12 : DRAWR 2,9 

PH9 RETURN 

?PLD__" SSSSSSSSSSS ESS S=SEZ====S=S=R-==Sess 
729 ? Frocedure <== 

739 ? =s=2sasssszessssezessss2ssss2=sseereæxmme 
749 MOVE XC,89 : TAG PRINT " "5; : TAGOFF 


759 XC=XC-485 

769 GOSUB 799 

7P79 MOVE XC,G9 : TAG: PRINT CHR#&(94)3:TAGOFF 
78 RETURN 


TIDÉPEESERESESESESSESSEESESS=SS SES SESS= 

894 ? Procedure VALIDATION 

S19  =essz=s=sessssszzze==s2ensesszzszs= 

829 IF XC<175 THEN XC=175 

859 IF XC>511 THEN XC=511 

844 RETURN 

SSO ? sasrsaseasz=2zzezzsss=2sz=sL=sS=Ssseseue 
869 ? Procedure ==} 

879 ? ===2S=ss===22=2=2s==zs=s===s======-=2=z==2== 
839 MOVE XC,S9 : TAG :PRINT " "; :TAGOFF 
879 XC=XC+48 


969 GOSUE 779 
919 MOVE XC,S9 :TAG: FRINT CHR#(94);:TAGOFF 
929 RETURN 
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DZ ? ================================ 
949 ? Frocedure FIXE CHOIX 

GS ? ================================ 
969 NR=NR+1 

579 NN=(XC-127)/48 

°29 SOUND 1,P(NN),196,15 

779 RINR)=NN 

1860 GOSUB 1399 

1919 RETURN 


IDR ? ================================= 
1939 ? Frocedure SON 

1949 ? ===================SS============ 
1959 FOR K=1 TO S 

1968 SOUND 1,F(NT(KH)),199,15 

1979 SOUND 1,F(NT(KI), 19,9 


1989 NEXT K 
1999 RETURN 


119Q ? ========z===z=====S=============== 
1119 Procedure PFORTEE REFONSE 

11279 ? ================================= 
1139 FOR K=1 TO 5 

1149 MOVE S9,2Z4S+KK12 

1156 DRAWR 559, 


1169 MEXT K 
1178 RETURN 


LIST ? ===========z==SESS=SS==============-==—-——-— 
1199 Procedure EVALUATION REPFONSE 

1299 ? ===========2=====S=SSSSS=EESSE======S===—=—=—= 
1219 FOR J=1 TO 8 

1229 IF RUJI=NT(J) THEN BPF=BPF+1 :GOTO 1269 
1259 NR=J:NN= R(J) 

1249 MOVE  114+NRX48,251+NNXx6 

127259 DRAWR 38,-38:MOVER @,38:DRAWR -38, -358 
1769 NNENT (3) 

1274 GOSUB 1379 


1259 NEXT J 

1259 RETURN 

AS ? ==s=========rS=======S=============--—-—= 
1519 Procedure PERFORMANCE 

1329 ? ==================S================--= 
1339 RES=INT(BP/49Xx166) 

1349 X=1OD+RESXS 

135G MOVE X,6@9: DRAWR 6,-49 

1369 IF X)199 THEN MOVE X-3,S@:FILL 1 

1379 LOCATE 79,24: PRINT RES5s" %" 

1389 RETURN 
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1399 Le SS=S===S=========E==============—=—=—— 
1499 ? Frocedure DESSIN NOTES 

1419 Le S=E====E====================-=======-—-— 
1429 TAG 

1439 MOVE 125+NRX48, 249+NNXé6 

1449 PRINT CHR$S(239); CHRS(231); 

1459 MOVER -2,-5 

1469 DRAWR 9,35 

1479 TAGOFF 

14859 IF NN=1 THEN MOVE 122Z+NRX48,249:DRAWR 22,9 
149S GOSUB 1199 

1599 RETURN 


1519 ? ================================== 
1529 ’ Procedure PRESENTATION 

1539 ? SES =S==E==============—=—=—-—-—- 
15498 CLG 

1559 ? 

1569 ? NOTES 

1579 TAG 

1539 FOR J=1 TO S 

1599 MOVE 125+JK48,199+JX6 

1699 PRINT CHR#S(239) ; CHR$(231); 

1619 MOVER -2,-5 

1629 DRAWR 6,35 


1639 NEXT J 
1649 TAGOFF 


1659 ? 

1669 ? ZONE PORTEE 

LED SP EES RES S 

1659 FOR J=1 TO 5 

1699 MOVE 59,19@+Jx12 
1799 DRAWR 559,9 


1719 NEXT J 

1729 MOVE 169,199: DRAWR 22,9 
1739 ? 

1749 ? CLE DE SOL 

re PC RARE a en 

1769 MOVE 98,122 : GOSUB 589 
177@ MOVE 97,122 : GOSUB 589 


1789 MOVE 97,121 : GOSUB 589 
1799 ? 

1399 ? PORTEE REPFONSE 

1819 ? -------------- 


1529 GOSUB 1199 
1336 ? 
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1849 * CLE DE SOL 
1859 * ---------- 


1569 MOVE 98,262 : GOSUB 559 
1579 MOVE 97,262 : GOSUB 589 
1889 MOVE 97,261 : GOSUEB 559 
1590 ” 

1799 TABLE D’EVALUATION 
290 


1929 MOVE 199,69: DRAWR 499,9 : DRAWR 9,-49 : DRAW 
R -499,9 : DRAWR 0,49 
1939 RETURN 


AUDIOMÈTRE 


Présentation 


UOLUME : 15 
f FREQ. : 14791 





Ce programme va vous permettre de déterminer la courbe des sons que 
vous pouvez encore entendre. Mettez le volume sonore maximum à l’aide 
du potentiomètre réservé à cet usage. Un curseur se déplace sur l’écran 
grâce aux touches fléchées. Quand, pour une fréquence donnée, vous 
percevez le son au volume minimal, appuyez sur la barre d’espacement 
pour valider ce point. Si le son n’est plus audible, élevez le volume. De 
proche en proche, vous verrez se tracer une courbe qui représente votre 
seuil minimal d’audition. 


Pour arrêter le programme, il vous suffit d'appuyer sur la touche 
RETURN. 
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Analyse du programme 


Fixer les couleurs 
Choisir écran 80 colonnes 
Fixer les origines du cadre graphique 


Dessiner les axes horizontaux et verticaux 


Dessiner les graduations 
horizontales 


verticales 


Afficher les unités sur les axes 





Tracer le cadre présentant la signification des touches de déplacement 
Tracer le cadre validation 


Préciser la position de départ du curseur graphique 


Répéter 


Attendre la frappe d’une touche du clavier tout en émettant un son 





Emettre le son 


si À 
Non 
Incrémenter 
Y 
Décrémenter 
Y 


Incrémenter 
X 


Décrémenter Si 
X Oui 


Fixer les valeurs du 
curseur X1, Y1 
(1“ point) 


L & 3 4 le) 6 





140-150 


160 


180 


190-200 


210-300 


310-390 


410-570 


580-620 


660-670 


680 


690 


710 


720 


730 


740 


750 
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DR = 0? 
Oui Non 


DR=1  Tracerle 
segment 


Appeler Appeler Appeler Fixer  Refixer 


procédure procédure procédure origine la 
TEST TEST TEST du tracé position 
des origine 
segments du tracé 
du 
segment 





Effacer le curseur graphique (X2, Y2) 770 
Afficher le curseur graphique dans sa nouvelle position (X, Y) 780 


Calculer les paramètres du son au nouveau point graphique 790-800 
Fréquence 


Période 
Volume 


Afficher les valeurs du Volume et de la Fréquence 810-820 





Jusqu’à la frappe de la touche RETURN 


Afficher le message de fin de programme 


Procédure TEST 


Vérifier si les variables X et Y ne dépassent pas les valeurs permises 
152=>X=>550 
136=>Y=>360 


840 








870-900 





Eviter le retour en arrière du curseur graphique X<X2 910 
Fin de procédure 920 


Liste des variables 


X0, YO position origine des axes du graphique 
position antérieure du curseur graphique (origine du segment de 


droite). 
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X, Y position des repères sur les axes 


position actuelle du curseur graphique (fin du segment de droite). 


X1, Y1position validée du curseur. 


F fréquence du son. 

P période du son. 

V volume du son. 

R$ touche appuyée. 

DR drapeau (vaut 0 tant qu’un premier point n’est pas validé, = 1 pour 
tous les autres). 

I variable compteur des boucles. 


Remarque : pour les lecteurs ne disposant pas d’un CPC 6128, n’écrivez pas 


les lignes 470, 500, 530, 560, 620. 


PROGRAMME 61 
AUDIOMETRE 

139 ? 

149 INK 9,26 

159 INK 1,9 

169 MODE 2 

179 CLCG 

139 X9=59 : Y=129 : 

199 MOVE  X9,YG :DRAWR 569,9 

3-5: DRAUWR -5,-5 

269 MOVE  X9,Y® 

5,3:DRAUR 5, -3 

219 FOR i=1 TO 5 

224 x=xG+190%i 

z234 MOVE _ X,Y9-5 

24@ DRAWR 6,19 

259 NEXT I 

268 FOR I=1 TO 15 


: DRAWR 9,266 


279 Y=YB+16X1I 
239 MOVE  X9,Y 
299 DRAWR -5,8 


399 MNEXT I 
319 LOCATE 5,2:PRINT'V"; 
324 LOCATE 3,17 


338 PRINT" 19 
699 19000 196089 
349 y=3 


359 FOR i=15 TO © STEP-1 
569 LOCATE 4,7 


ORIGIN @, 


@ 


DRAWR -5,5:DRAWR 5 


DRAWR -5,-3:DRAWR 


199 1 
Hz ” 
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379 FRINT USING "#H##":1 
339 y=Yy+1 
379 MNEXT 


a9g MOVE 39,85 

419 DFAWR 229,9 : DRAWR 9,- S9 : DRAWR -229,@ : DR 

AUR 9, 29 

429 LOCATE 7,21:FRINT "RECHERCHE" 

439 LOCATE 13,23 :PRINT "VOL. FREG. " 

449 REM FLECHE 1 

459 MOVE 78,44 

469 DRAWR 9,19:DRAWR -5,9:DRAWR 7,7:DRAWR 7,-7:DRA 

WR -5,9:DRAWR @,-19:DRAWR -4,9 

479 MOVER 2,2:FILL !1 

439 MOVE 78,49 

459 DRAWR 9,-1S:DRAWR -5,9:DRAWR 7,-7:DRAWR 7,7:DR 

AWR -5,9:DRAWR @,19:DRAWR -4,@ 

569 MOVER 2,-2:FILL 1 

51 MOVE 175,57 

529 DRAWR 7,7:DRAWR 9,-5:DRAWR 19,@:DRAWR @,-4:DRA 

WR -19,9:DRAWR G,-5:DRAWR -7, 7 

539 MOVER 2,9:FILL 1 

549 MOVE 219,55 

559 DRAWR 9,4:DRAWR 19,9:DRAWR 9,5:DRAWR 7,--7:DRAW 

R -7,-7:DRAWR 9,5:DRAWR -19,9 

5689 MOVER 2,2:FILL 1 

579 MOVE 399,85 

589 DRAWR 226,9 : DRAWR 9,- 89 : DRAWR -229,8 : DR 

AWR GS, 89 

599 LOCATE 46,22: PRINT"VALIDATION" 

698 MOVE 386,48 

618 DRAWR 59,9 : DRAWR 9,-189 : DRAWR - 59,9 : DRA 

WR @,19 

629 MOVER 2,-2:FILL 1 

638 REM 

649 REM DEPLACEMENT CURSEUR 

65Q REM ------- 

668 X=172 : Y=136 

678 KXG=X : YG=Y : MOVE X9,Y9 

689 RE=INKEYS: IF R$="" THEN SOUND 1,FE,5 ,V : GOTO 
689 

699 SOUND 1,PE,S ,V 


798 KZ=X : Y2Z=Y 

719 IF ASC(R#S)=249 THEN Y=Y+16 : GOSUB 849 : G 
OTO 769 

729 IF ASC(RF)=241 THEN Y=Y-16 : GOSUB 849 : G 
OT9 769 

739 IF ASC(RH)=243 THEN X=X+1 : GOSUB 849 : G 


OTO 769 
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74 IF ASC(R#S)=242 THEN X=X-1 : GOSUB 849 : G 
OT9 769 
759 IF ASC(RH)=352 THEN X1=XPOS:Y1=YPOS:IF DR=G 


THEN DR=1:X9=X1:Y@=Y1 ELSE MOVE X6,Y9:DRAW X1,Y 
1: X9=X1: Y9=Y1 


769 MOVE X2,Y2:DRAWR 2,8,9:DRAWR @,-2,@:DRAWR 

-2,9,8: DRAWR 0,2,9 

779 MOVE _ X,Y: DRAWR 2,9,1:DRAWR 9,-2,1:DRAWR 
-2,9,1: DRAWR O,2,1 

789 F=19"((X-59)/189) : PE=ROUND(62589/F) 

798 V=(Y-136)/16 +1 

899 LOCATE 69,2:PRINT " VOLUME :"V 

814 LOCATE 69,3:PRINT " FRE@. :"INT(F) 

829 IF ASC(RS)=13 THEN CLG:MODE 1: LOCATE 15,1 


S:PRINT"AU REVOIR.":LOCATE 1,2Z@:END 

859 GOTO 689 

849 ’ Ssr=z2z=sss=sss=s=2SSS=SSSSESSS=Z2E= 
854 ? Procedure TEST 

SO ? ==2zs=ss=SSs==ss=TESSSS=SE=SSSn=2=Z 
879 IF X<=152 THEN X=152 

869 IF X2=5S5@Q THEN X=559 

S7S IF Y<=136 THEN Y=136 

FIN IF Y)2=35369 THEN Y=369 

718 IF X£X2 THEN X=X2 

729 RETURN 


ANNEXES 


Annexe 
Récapitulatif 
des instructions 


INSTRUCTIONS BASIC PROPRES AU SON 


SOUND a, b, c, d, e, f 


Produit un son. 
a désigne le canal concerné (ou les canaux) 


Rencontre 
FLUSH HOLD 


SRB ODOUEE 


b période du son (1 à 4095). 
Si vous connaissez le numéro de l’octave et celui de la note, les relations 
suivantes déterminent cette valeur : 
— fréquence — 440 + (2’(octave + (N — 10)/12))). 
— période = ROUND (62500 / Fréquence). 





c durée du son émis (— 32768 à 32767). 
Si > 0, la durée est exprimée en centièmes de seconde. 
Si = 0, la durée est déterminée par l’enveloppe volume du son. 
Si < 0, la durée est déterminée par l’enveloppe volume du son et la 
valeur c indique le nombre de répétitions de l’enveloppe. 
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d volume (de 0 à 15). 


e 


enveloppe de volume (0 à 15), le nombre désigne le numéro de 
l'enveloppe décrite par une instruction ENV. 


enveloppe de tonalité (0 à 15), le nombre désigne le numéro de 
l'enveloppe décrite par une instruction ENT. 


période de base d’un bruit (0 à 31). 


ENV n°, al, bl, ci, .…, a5, bS, c5 


Définit l'enveloppe du son. 


n° précise le numéro de l’enveloppe (0 à 15). 


5 séries de paramètres a, b, c 

nombre de pas durant lequel la variation de volume va se réaliser (0 à 
127). 

variation du volume à chaque pas (— 128 à 127). 

Si < 0, le volume décroît. 

Si = 0, le volume reste constant. 

Si > 0, le volume croît. 


ATTENTION, la variation de volume s’effectue en modulo 16, 
c’est-à-dire que si la variation est croissante et que le niveau est 15, le 
niveau suivant sera (. 


durée en centièmes de seconde de chaque pas (0 à 255). 


ENT n°, al, bl, ci, .…, a5, b5, c5 


Définit l'enveloppe du ton. 


n° précise le numéro de l’enveloppe (0 à 15). 


Si < 0, l’enveloppe sera répétée pendant la durée totale d’émission du 
son. 

Les 5 séries de paramètres a, b, c, ont la même signification et les mêmes 
limites que pour l'instruction précédente « ENV ». 


RELEASE canal 


Libère l’attente d’un canal sonore en déclenchant l'interprétation des 


ES 


sons se trouvant dans la file sonore attribuée à ce canal. 


Canal prend les valeurs 1, 2 ou 4. 
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SQ (canal) 


Variable incluse dans le Basic qui renseigne sur l’état des files sonores 
(«queues»). Si nous considérons son expression binaire obtenue par 
l'instruction : 


PRINT BIN$ (SQ(canal), 8) 





(1) indique la place libre dans la file correspondant au canal précisé. 
Une file sonore comporte au maximum 5 sons. 


(2) indique si le son à «rendez-vous» avec un autre canal et précise 
lequel. 


(3) possède la valeur 1 si le canal est en attente (libéré par RELEASE). 
(4) possède la valeur 1 si le canal est en action. 


CODE DE TRADUCTION 
DES PARTITIONS MUSICALES 


A, B, C, D, E, F, G nom des notes (la, si, do, ré, mi, fa, sol). 
# dièse. 
— bémol. 
Ces deux altérations s’indiquent devant la note. 


2, 4, 8, 16 nombre suivant le nom d’une note ou de R (silence) 
précisant la durée de celle-ci. 
2 = blanche ou demi-pause = 
4 = noire ou soupir l 
8 = croche ou demi-soupir 7 
16 = double croche & ou quart de soupir * 

R val indique la présence d’un silence (sera suivi d’un 
nombre précisant la durée de celui-ci). 

L val indique la durée des notes suivantes : 
A4B4C4D2 
s’écrira (plus rapidement) 
L4ABCD2 


situé après la valeur indiquant la durée précise que 
celle-ci est augmentée de moitié. 
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A4. correspond à ——®2* s- 


V val définit l’intensité du son émis (varie de 0 à 15), 12 
est la valeur par défaut. Par convention, nous avons 
attribué aux expressions précisant les nuances les 
valeurs : 


pianissimo- (pp) 7 
piano (p) 9 
mezzo-piano (mp) 10 
mezzo-forte (mf) 11 


forte (f) 13 
fortissimo (ff) 15 
< > indiquent le changement d’octave. Celui-ci est 


déterminé par le passage par une note DO. 


< passage à l’octave supérieure. 
> passage à l’octave inférieure. 


& précise l’existence d’une liaison de prolongation (le 
son est interprété à 100 % de la durée de la note). 


son continu pendant 
1 temps 12 AGFB 


— 


sons liés (légato) 
L4F&G&A 





QUELQUES «TRUCS » 


Note : il est préférable d'utiliser la liaison à la note pointée afin de 
respecter le rythme de la mélodie, le programme, si le signe n’est 
pas mis, n’accorde que 80 % de durée au son. 


RE se enduire par 
e 


G4&G38 
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Notes piquées : le son doit être bref. 


nu } — se traduira par G8R8 


—_ 8 —————— 


a —— se traduira par G16R16 


—0 


Le triolet : ces trois notes doivent être interprétées en 1 temps. 


= 


3 


L12GAB 


Le quadriolet : ces quatre notes doivent être interprétées en 1 temps 1/2. 


4 
R24L12FGAB 


VARIABLES DU PROGRAMME 


TEMPO précise la durée d’une mesure. Pour la déterminer, il faut 
utiliser : 


a : la valeur de la noire indiquée en haut de la partition 
(g = 120). 
Rem. : il peut s’agir d’une blanche, dans ce cas, il suffit de 
ramener à la valeur de la noire. 


b : la durée de la mesure. 
3/4 équivaut à 3 noires. 
6/8 équivaut à 6 croches (3 noires). 
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c : la fraction de durée de la note la plus courte. 
1/4 s’il s’agit d’une noire 
1/8 s’il s’agit d’une croche 
1/12 dans le cas de la présence de triolet 
1/24 dans le cas d’un quadriolet. 


Avec ces informations, calculer le TEMPO 
TEMPO = b X (60/a) x 100 


La valeur trouvée doit être un multiple de chaque code de 
durée utilisé dans la partition. 


Remarque : le calcul du TEMPO est très important pour 
assurer un synchronisme entre les divers canaux. 


VOX fixe le nombre de voix (1, 2 ou 3). 
PHRASE fixe le nombre de phrases décrivant la partition. 


T$ expression du titre de l’œuvre qui sera interprétée. 


Annexe 2 


Glossaire musical 


ALTÉRATIONS signe modifiant la hauteur d’une note. 


AMPLITUDE 


ATTAQUE 


BRUIT 


CLÉ 


# le dièse, hausse la note d’un demi-ton. 
b le bémol, baisse le son d’un demi-ton. 


s le bécarre, indique que le son de la note revient à sa 
hauteur initiale. 


Altérations accidentelles : ne se rencontrent que passagère- 
ment dans la partition. 


Altérations constitutives : un ou plusieurs signes d’altéra- 
tions sont indiqués immédiatement après la clé au début de 
chaque nouvelle portée. Toutes les notes correspondant à 
la position des altérations verront leur hauteur modifiée à 
moins qu’un bécarre ne restitue la hauteur normale. 


d’un mouvement vibratoire : distance entre la position de 
repos et l’écart maximum par rapport à celle-ci. 


premier moment de l’émission d’un son, part de l’intensité 
nulle pour atteindre l’intensité maximale. 


se dit d’un son qui n’est pas périodique contrairement aux 
sons musicaux. 


signe figurant au début de la portée et indiquant la note de 
référence. Les deux clés les plus fréquentes sont la clé de fa 
et la clé de sol. 
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DAcAPo/ & 
Copa/ 


DALSEGNO/ 


Cona/& 


ENTRETIEN 
DU SON 


ENVELOPPE 
DE VOLUME 


ENVELOPPE 
DE TON 


FRÉQUENCE 


GAMME 


HAUTEUR 
D’UN SON 


INTERVALLE 
MUSICAL 


LEGATO 


DACAPO précise une reprise de la mélodie depuis le 
début de celle-ci jusqu’au signe - en poursuivant à partir 
de CODA. 


DACAPO CODA 
|AIBICID| lETF|] 


sera interprétée par la suite des mesures : 
|AIBICIDIAIBICIEÏFI 


DALSEGNO précise une reprise de la mélodie depuis le 
signe $:, jusqu’au signe € poursuivant ensuite à partir du 
coda. 

ÿ @ DALSEGNO CODA 
|AIBICIDIE| FIG 
sera interprétée par la suite des menus : 
[AIBICIDIEIFIG|| 


deuxième moment de l’émission d’un son, le son ayant 
atteint sa valeur maximale, celle-ci est plus ou moins 
maintenue selon l'instrument avant la retombée. 


«tracé» de la variation du volume en fonction du temps 
(durée) lors de l’émission d’un son donné. 


«tracé » de la variation de la période en fonction du temps 
(durée) lors de l’exécution d’un son. 


nombre d’oscillations par unité de temps. 


système de notation et de codification des intervalles 
musicaux (gamme de Pythagore, gamme des physiciens, 
gamme tempérée). 


fréquence de vibration conduisant à l’émission d’un son. 


rapport F1/F2 où F1 est une fréquence émise et F2 une 
fréquence de référence. 


indique que les notes doivent être reliées aux autres, il ne 
peut y avoir de silence entre deux émissions de sons 
successives. Une liaison apparaît sous la série de notes 
devant être interprétée de cette manière (cf. liaison de 
prolongation). 
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LIAISON DE indique la prolongation d’un son sans interruption pendant 


PROLONGATION une durée équivalente à la somme des durées des notes 
reliées. 


NUANCES degré de force ou de douceur qu’il convient de donner à 
l'interprétation. Des termes d’origine italienne sont utilisés 
au niveau de la partition. Dans l’échelle courante, les 
expressions vont de fortissimo (ff) au pianissimo (pp) en 
passant par le forte (f), mezzo-forte (mf), mezzo-piano 


(mp) et piano (p). 


OCTAVE intervalle musical dont la valeur vaut 2 (un des deux sons 
présente une fréquence double d’une autre). 


PÉRIODE durée d’une oscillation complète (p = 1/F). 
POINT DE point suivant une note ou un silence et augmentant la durée 
PROLONGATION du signe de la moitié de sa valeur. Si le signe est pointé 


plusieurs fois, chaque point vaut la moitié de celui qui le 
précède. 


Mo | 


1 1/2 1/4 1/8 1/16 


PORTÉE ensemble de cinq segments de droite parallèles sur lesquels 
s’accrochent les signes musicaux. 


QUADRIOLET groupe de quatre notes valant 3 notes de la même figure 


rythmique représentée. 
sera jouée comme LB 


4 


soit 1 temps 1/2. 


REDITE ;< Ce signe dans une mesure signifie que le contenu de la 
mesure est identique à celui de la mesure précédente. 


230 | AMSTRAD EN MUSIQUE 


RÉPÉTITIONS 


RELÂCHEMENT 
D'UN SON 


STACCATO 


TEMPO 


TIMBRE 
D’UN SON 


TRIOLET 


VARIATION 
DE VOLUME 


|: :|| signifie que les mesures comprises entre ces deux 
signes doivent être répétées. On leur associe quelquefois 
des numéros. Par exemple : 


1° 2° 
FF Fe; 
EAIB|IC DIE 


signifie que la première fois, la partie C sera interprétée, et 
que lors de la reprise, B sera suivie par la mesure marquée 
par le signe 2°. L’exemple ci-dessus engendre l’exécution de 
la suite : A BC AB D E.. 


troisième moment de l’émission d’un son marquant la fin 
de celui-ci lorsque la source d'émission est interrompue 
(relâchement de la touche du piano, ..). 


indique que les notes doivent être jouées bien détachées les 
unes des autres, en général, les notes possèdent un point 
en-dessous pour signaler ce type d'interprétation. 


RE 
Li 
mouvement rythmique donné à une œuvre musicale, 


précisé par une note (noire ou blanche), suivi par le 
nombre de répétition par minute ( = 120). 





permet de distinguer deux sons identiques en hauteur et en 
intensité, émis par deux instruments différents (superposi- 
tion des harmoniques engendrées par l’instrument au son 
original). 


groupe de trois notes valant deux notes de la même figure 
rythmique représentée. 


He ah. 


3 
soit 1 temps. 
plutôt que de passer brusquement d’une intensité sonore à 


une autre, des variations graduelles sont proposées par les 
expression : 
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CRESCENDO (<) augmentation de l'intensité. 
DECRESCENDO (>) diminution de l'intensité. 


s 


Les signes graphiques correspondant à ces expressions 
portent le nom de soufflets. 


Remarque : on peut rencontrer des abréviations signalant le 
même phénomène : dim., cresc., 


Annexe 3 
Table des périodes 
des sons 


OCTAVE — 4 

Note Fréquences Période Erreur 
DO 16.352 3822 0.00671 
DO# 17.324 3608 0.00749 
RE 18.354 3405 0.00715 
RE# 19.445 3214 0.00379 
MI 20.602 3034 0.00900 
MI# 21.827 2863 0.01596 
FA 23.125 2703 0.00949 
SOL 24.500 2551 0.00196 
SOL# 25.957 2408 0.00537 
LA 27.500 2273 0.01200 
LA# 29.135 2145 0.00787 
SI 30.868 2025 0.01137 
OCTAVE — 3 

Note Fréquences Période Erreur 
DO 32.703 1911 0.00671 
DO# 34.648 1804 0.00749 
RE 36.708 1703 0.02222 
RE# 38.891 1607 0.00379 
MI 41.203 1517 0.00900 


MI# 43.654 1432 0.01897 
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Note Fréquences Période Erreur 
FA 46.249 1351 0.02751 
SOL 48.999 1276 0.03724 
SOL# 51.913 1204 0.00537 
LA 55.000 1136 0.03200 
LA# 58.270 1073 0.03874 
SI 61.735 1012 0.03802 
OCTAVE — 2 

Note Fréquences Période Erreur 
DO 65.406 956 0.04562 
DO# 69.296 902 0.00749 
RE 73.416 851 0.03651 
RE# 77.782 804 0.05844 
MI 82.407 758 0.05692 
MI# 87.307 716 0.01897 
FA 92.499 676 0.04649 
SOL 97.999 638 0.03724 
SOL# 103.826 602 0.00537 
LA 110.000 568 0.03200 
LA# 116.541 536 0.05449 
SI 123.471 506 0.03802 
OCTAVE — 1 

Note Fréquences Période Erreur 
DO 130.813 478 0.04562 
DO# 138.591 451 0.00749 
RE 146.832 426 0.08095 
RE# 155.563 402 0.65844 
MI 164.814 379 0.05692 
MI# 174.614 358 0.01897 
FA 184.997 338 0.04649 
SOL 195.998 319 0.03724 
SOL# 207.652 301 0.00537 
LA 220.000 284 0.03200 
LA# 233.082 268 0.05449 


SI 246.942 253 0.03802 
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OCTAVE 0 

Note Fréquences Période Erreur 
DO 261.626 239 0.04562 
DO# 277.183 225 0.21425 
RE 293.665 213 0.08095 
RE# 31127 201 0.05844 
MI 329.628 190 0.20678 
MI# 349.228 179 0.01897 
FA 369.994 169 0.04649 
SOL 391.995 159 0.27636 
SOL# 415.305 150 0.32687 
LA 440.000 142 0.03200 
LA# 466.164 134 0.05449 
SI 493.883 127 0.35709 
OCTAVE 1 

Note Fréquences Période Erreur 

DO 523.251 119 0.37298 
DO# 554.365 113 0.22924 
RE 587.330 106 0.38891 
RE# 622.254 100 0.43937 
MI 659.255 95 0.20678 
MI# 698.456 89 0.53980 
FA 739.989 84 0.54550 
SOL 783.991 80 0.35083 
SOL# 830.609 75 0.32687 
LA 880.000 71 0.03200 
LA# 932.328 67 0.05449 
SI 987.767 63 0.43313 
OCTAVE 2 

Note Fréquences Période Erreur 
DO 1046.502 60 0.46422 
DO# 1108.731 56 0.65775 
RE 1174.659 53 0.38891 


RE# 1244.508 50 0.43937 
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Note Fréquences Période Erreur 
MI 1318.510 47 0.84803 
MI# 1396.913 45 0.57773 
FA 1479.978 42 0.54550 
SOL 1567.982 40 0.35083 
SOL# 1661.219 38 1.00210 
LA 1760.000 36 1.37600 
LA# 1864.655 34 1.43723 
SI 1975.533 32 1.14730 
OCTAVE 3 

Note Fréquences Période Erreur 
DO 2093.005 30 0.46422 
DO# 2217.461 28 0.65775 
RE 2349.318 21 1.49054 
RE# 2489.016 25 0.43937 
MI 2637.020 24 1.26159 
MI# 2793.826 22 1.65733 
FA 2959.955 21 0.54550 
SOL 3135.963 20 0.35083 
SOL# 3322.438 19 1.00210 
LA 3520.000 18 1.37600 
LA# 3729.310 17 1.43723 


SI 3951.066 16 1.14730 


Conseils de lecture 


Pour approfondir vos connaissances en BASIC, et mieux connaître le 
système des CPC 464, 664 et 6128, ainsi que du PCW 8256, P.S.I. vous 
propose une palette d’ouvrages utiles. 


POUR JOUER AVEC OU CONTRE VOTRE AMSTRAD 


O Super-jeux Amstrad, par Jean-François Sehan (Editions du P.S.I.) 
50 programmes BASIC sont ici abondamment commentés et totalement 
ouverts à toute modification et adaptation. Le niveau de programmation 
est supérieur à celui du «102 programmes ». 


Amstrad en famille, par Jean-François Sehan (Editions du P.S.I.). Pour 
gérer votre compte en banque, votre portefeuille boursier ou votre 
congélateur, pour apprendre ou jouer en famille avec votre micro, cet 
ouvrage vous propose des programmes BASIC faciles à rentrer et 


s 


adaptables à volonté. 


102 programmes pour Amstrad, par Jacques Deconchat (Editions du 
P.S.I.). Pour débutants en BASIC, voici de nombreux programmes de 
jeux qui vous permettront, niveau par niveau, de maîtriser le BASIC de 
votre Amstrad. 


POUR MAITRISER LE BASIC AMSTRAD 


© Découverte de l’Amstrad, par Daniel-Jean David (Editions du P.S.I.). 
Une découverte exhaustive et claire des CPC 464, 664 et 6128, un 
apprentissage progressif du BASIC Amstrad pour débutants complets. 
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O BASIC Amstrad-1. Méthodes pratiques, par Jacques Boisgontier et 
Bruno Césard (Editions du P.S.I.). Pour ceux qui connaissent déjà un 
BASIC, voici un bon ouvrage de perfectionnement à la programmation 
en BASIC sur Amstrad 464, 664 et 6128. 


O BASIC Amstrad-2. Programmes et fichiers, par Jacques Boisgontier 
(Editions du P.S.I.). Pour programmer le BASIC Amstrad, cet ouvrage 
donne de nombreux programmes de gestion, d'éducation et de jeux où le 
rôle des fichiers est expliqué et largement commenté. 


O BASIC plus, 80 routines sur Amstrad, par Michel Martin (Editions du 
P.S.I.). Pour pousser votre Amstrad au maximum de ses capacités : 80 
routines de simulation d'instructions qui n’existent pas en BASIC 
Amstrad. 


© Périphériques et gestion de fichiers sur Amstrad, par Daniel-Jean David 
(Editions du P.S.I.). Cet ouvrage s’adresse aux lecteurs, déjà initiés à 
l’Amstrad, souhaitant programmer en BASIC Amstrad des applications 
utilisant des fichiers sur disquette ou cassette, et programmer tous les 
périphériques des CPC 464, 664 et 6128. 


POUR MIEUX CONNAÎTRE LE SYSTÈME 
DES CPC ET DU PCW 8256 


O Clefs pour Amstrad-1. Système de base, par Daniel Martin (Editions du 
P.S.I.). Mémento présentant synthétiquement le jeu d’instructions du 
Z80, les points d’entrée des routines système, les connecteurs et 
brochages, etc. Le livre de chevet du programmeur sur Amstrad. 


0 Clefs pour Amstrad-2. Système disque, par Daniel Martin et Philippe 
Jadoul (Editions du P.S.I.). Ce deuxième tome consacré au système 
disque, présente les points d’entrée des routines disque, les blocs de 
contrôle, la programmation et les brochages des circuits spécialisés. La 
deuxième partie du livre est aussi destinée aux possesseurs d’Amstrad 
8256. 


O0 CP/M plus sur Amstrad, par Yvon Dargery (Editions du P.S.I.). Toutes 
les commandes CP/M et CP/M plus pour maîtriser le système des 6128 et 
8256 : un ouvrage de référence illustré par de nombreux programmes. 
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O Le livre de l’Amstrad, tome 1, par Daniel Martin et Philippe Jadoul 
(BCM-diffusé par P.S.I). Ce livre destiné aux programmeurs des CPC 
464 et 664, donne une étude complète de tous les circuits internes et 
analyse la structure interne du BASIC. Vous y trouverez en outre, une 
étude complète des RSX, et des programmes de scrolling, de traçage de 
rectangles, de coloriage de surface et de manipulation vectorielle. 


POUR ÊTRE INFORMÉ RÉGULIÈREMENT 
DE L'ACTUALITÉ DES MICROS AMSTRAD 


0 MICROSTRAD, revue bimestrielle du Groupe Tests. Pour exploiter au 
mieux les capacités de votre micro, vous trouverez au sommaire de 
chaque numéro, un rendez-vous avec les rubriques clés : 

— Découvrez la face cachée de votre CPC : astuces, idées, conseils, tout 
pour comprendre votre micro, son anatomie, son fonctionnement, sa 
programmation et exploiter ses capacités graphiques et sonores. 

— Domptez votre CPC 464, 664, 6128 ou PCW 8256 : passionnés, petits 
ou grands, spécialistes ou débutants, une information pratique et la 
compétence d’experts au service de votre micro. 

— Programmez votre micro Amstrad : dans chaque numéro de 
MICROSTRAD, un cocktail de programmes (dessins, jeux, utili- 
taires, gestion, etc.) et des trucs de programmation. 


DISQUETTE 
D'ACCOMPAGNEMENT 


Vous pouvez utiliser le bon de commande ci-après (ou une photocopie) 
afin de vous procurer la disquette correspondant au livre. Cette disquette 
vous évitera les pénibles tâches de saisie des programmes. En voici le 
contenu détaillé par face. 


Tous les programmes de l’ouvrage sont repris sur la disquette. Il vous 
suffit d'introduire l'instruction : 


pour obtenir l’exécution du programme. 


Le nom des programmes correspond à celui repris dans l’ouvrage. Deux 
types de fichiers apparaissent à la lecture des catalogues : 


— les fichiers <.BAS> désignant un programme en BASIC# ; 
— les fichiers <.NOT> créés lors de l’utilisation du programme codeur. 


Deux programmes ont été ajoutés : 


HARDCOPY qui a servi à illustrer l’ouvrage ainsi qu’à imprimer les 
catalogues. Pour l’utiliser, reliez l’imprimante à l’ordinateur, allumez ces 
deux appareils, tapez <run “hardcopy>. Pour obtenir une copie d’écran, il 
vous suffira d'introduire l’instruction <CALL &Aÿÿÿ> (ce programme est 
une adaptation du programme de Jean-Pierre Lalevée (pseudonyme Joël 
Jarduin) paru dans Microstad n° 1). 


INTRO qui vous présentera un menu vous permettant de choisir un des 
principaux programmes figurant dans l’ouvrage. 
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Vente par correspondance 


BON DE COMMANDE 


Je demande la disquette d'accompagnement du livre : .................. 


au prix de 150,00 FF* plus 10,00 FF** de frais de port et d'emballage. 
Renvoyez-nous ce bon rempli (découpé ou copié), avec votre règlement par 
chèque bancaire ou postal, établi à l’ordre LA CONSOLE. 

Adresse : La Console, 5 place du Colonel Fabien, 75010 PARIS. 
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* prix valable jusqu’au 31 décembre 1986 
** hors CEE, prévoyez 15,00 FF pour supplément de frais d'expédition 


Achevé d'imprimer en mars 1986 
sur les presses de l'imprimerie Laballery 
58500 Clamecy 
Dépôt légal : mars 1986 


N° d'impression : 601086 
N° d'édition : 86595-324-1 
ISBN : 2-86595-324-6 
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Votre avis nous intéresse 


Pour nous permettre de faire de meilleurs livres, adressez-nous vos critiques sur le 
présent ouvrage. 


— Ce livre vous donne-t-il toute satisfaction ? 





Si vous souhaitez des éclaircissements techniques, écrivez-nous, nous ne manquerons 
pas de vous répondre directement. 


Où avez-vous acheté ce livre ? 


D cadeau D librairie O autres 
D exposition DO boutique micro 

Comment en avez-vous eu connaissance ? 

O publicité D catalogue D autres 
DO exposition D conseils d'un ami 


Avez-vous déjà acquis des livres P.S.I. ? 
Lésquels 7... nt time nt nn On RSR RnnR 


qu'en pensez-vous ? 
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CATALOGUE GRATUIT 


Vous pouvez obtenir un catalogue complet des ouvrages PSI, sur simple demande, ou en retournant 
cette page remplie à votre libraire, à votre boutique micro ou aux 


Editions du PSI 
BP 86 
77402 Lagny-sur-Marne Cedex 








AMSTRAD 
EN MUSIQUE 


C: ouvrage vous propose, dans un premier temps, de réaliser une 
série de sons en vous appuyant sur les instructions BASIC que possède 
l'Amstrad CPC 464, 664 où 6128. Une analyse plus approfondie du 
synthétiseur sonore programmable (PSG) vous permet den comprendre 
le fonctionnement. Les graphiques vous assistent dans la réalisation de 
sons, rendant visible les enveloppes du volume et du‘ton. 


L. chapitre consacré à l'interprétation musicale vous conduit à la 
traduction de partitions (adaptation de thèmes consacrés et dœuvres 
originales) en vous donnant les notions de base du solfège. Vous y appre- 
nez également à construire un programme traduisant l'écriture musicale. 


‘E dernière partie de ce livre présente une série de programmes qui 
transforment votre ordinateur en orgue simplifié, en audiomètre ou 
encore en outil d'apprentissage permettant de reconnaître des sons, des 
rythmes ou de faire une dictée musicale. 


0 
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9 782 





CUT OUEN 
BP 86 - 77402 LAGNY S/MARNE CEDEX - FRANCE 


ISBN 2-86595-324-6 LUE ; à 


MICRO D'INGRES 








ILLUSTRATIOMN PASCALE COLLAMNGE 





AMSTRAD EN MUSIQUE —————————— "0" îû"" —  — 


DOGUMEN! NUMENISE AVEC amour. par 


|| 
IN 


r 


L 


WA 










BAM=== 





https://acpc,ne/ 





A l 


